JOHNNIAciSTYLE E 



Problem No.. 



Programmer. 



_Date_ 



Page. 



_of_ 



ID 




LOCN 


OPN 


ADDR 


OPN 


ADDR 




COMMENTS 


000 00000 
12 3 4 5 6 7 8 


1 1 1 1 
9 12 3 


I 1 1 1 1 
4 5 6 7 8 


12 2 2 
9 12 


2 2 2 2 2 

3 4 5 6 7 


2 2 3 3 
8 9 1 


3 3 3 3 
2 3 4 5 


3 3 3 3 4 
6 7 8 9 


4444444445555555555666666666677777777778 
1 23456789 1 234567890 1 234567890 1 234567890 
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. ' i i , '■ 
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) 
1 
1 


i 
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i 
1 



D(t)-3058 



LIST OP JOHNNIAC OPERATICM - June 1. 1961 ,; 
Oparatlon Codas are Base Eight Numbers. Notes are Base Ten 



p.lj.v? 



001 
002 



TNL 
TPL 



OOj TPL 
OlO^TRL 
Oil TIL 
012 IT2L 
OlJjTJL 
020 RA 
021 , RS 
022: HA V 
02^ RSV_ 
0.10 MR 
Ojl HNR 

052 M 
0J3 MN 
0*o'dS 
041 DNS 
050' ST 

051 'sol 

052 'SAL 

053 SHL 
OOOSTQ 
Oi-l SNQ 
Oo2 SVQ 
Ooj.SNV 

070 SRC 

071 CLC 



Froceed to next order In sequence 
If A < 0, c — > left command In N 
IT A > 0, c — > lert command In M 
If overflow, c— > left command In M 
c- > left command In M 
c * left command In M 
c — > left command In M 
c— -> let'l command In M 



If T, on, 
If T, on, 



If T, on, 
Clear A, 
Clear A, 
Clear A, 
Clear A, 



Clear A, 
Clear A, 
Clear A, 
Clear A, 
A f M — > 
A -J- (-Ml— > 
A — > M 



H 



— > A 

-> A 

|-> A 

|-> A 

MQ rounded — > A 
rounded — > A 
— > A and MQ 
— > A and MQ 
r — > A 
r — > A 



MQ 

MQ 

MQ 

MQ, 

MQ, 



->o», 

,— >7 « 



0. 19— >P 
Clear A, MQ 



A and M 
A and M 



— > 

Clear A, -MQ — > 

Clear A, I MQ I— > A and M 

Clear A,-| MQ | — > A and M 

Clear MQ, shift A right n places 
Zeros Into A Q . 

Clear MQ, circular 
left n ulaccg. 

*o t0 MQ .w 



shirt or A and MQ 
Couple MQq lo A.„, 





00* 


LM 




005 


TNR 




006 


TPH 




007 


TFH 




01* 


THH 




015 


T1H 




016 


T2H 




017 


T3R 




024 


A 




025 


3 ! 




026 


AV | 


. 


027 


SV J 




034 


KB 




035 


MNB. 




036 


MA 




037 


MNA 




CM 


D 




0*5 


DM 




05* 


SAB 




055 


SOR 




056 


SAR 




057iSHR; 




66* 


AQS| 




0b5 


SQSj 




066 


AVSJ 




067 


SVS 




07* 


srh! 




075ICLH1 

1 



072'LRC 1 Clear MQ, power shift 
places. Couple A, 

„A„ to — >„MQ, 



A and NQ right n 



o""o- 



073 IXC Clear MQ, power shirt A and MQ lert n 
places. Couple zeros Into MQ. (J ; 
t0A 39 . " 



100 'SEL 
1 

101 jc 

110 W! 
111|WD 



I" 1 

Select 1-0 



Address 
Part 

XSo 

■ M Copy Order 



076 



077 



M^> 50 leftmost 



tteael* do»k 



Restore one page 
Advance 1 print line 
Advance 2 print lines 



XXXO Prl. Peed Reader 10* MS DlBplay 

XXXI Sec. Feed Reader 105 HUT Hoot 

XXX2 Peed Punch 106 EJ Address part XXXO 

XXX3 Peed Punch & Echo of 106 XXXI 

XXX* Sel. left 80 col. of printer XXX2 

t.r° HP 

>st Selected Col 
A_> 40 Rightmost " 

Read drum words to M and memory addresses following numerically. Denoting MQ as 

dpb ljlgl^ljj, the f's determine the first drum address and the l's the last 

the position of the heads; and b, the bank to be read 



Clear MQ, M -> MQ 




If A < 0, e — s right command 


in H-i ■'■■■ 


If A j 0, c rv rlKlit commarid 


111 M'i "■ 


If overflow,!! -v right' ^ommanil 


In- M- 


•: - > rlrthl" command 


in' m '■ 


If T. cm, c - • right cntnnand 


In M 


11' T-, on, c •, rlglit cmmnartTt 


ll.'-M- 


if T. on, c • s right •.nminai.d 


li.'M '' 


M + A -/ A 




M ♦ A - / A 




I M |« A - , A 




-I M |+ A -, A 




M • MQ + ?-■>'' A ♦ i( 1-, A j)' 


.A and MC 


-« • MQ ♦ *-?' A ♦ }('-i f < ,): 


.A and MC 


M * MQ ♦ •<•'"''> A -, A anil Ml 




-« • MQ + ?" iy A --,- A and Ml, 




( A + 2-W MQ ) ! M • MC, 


1 ■-• A 


( A ♦ 2" w MQ ) ;( M) ,. Mil, 


;■ --* A 


l* Vj ana Z .. A w ,, /I,., ">'.| ,, 

20*2/ ~' 20"2Y 


"■/> 


2.1*39 — ■> 2M M V> 




20*J'j ' 20 M J'j 

MQ + A -s A and M 




- MQ ♦ A — -■ A and M 




I MQ | + A — y A and M 




-| MQ | + A — ? A and M 




Shift A right 11 places. >."(. 


:; *iitoA . 


Circular shift of A at.il MC 
Oouplt, W<n to Ai Aq lu Mw 


L>:\'-: U (.iB'Jl 


Power shift A and MQ right. 
Couple Aj„ to MQj. Q A — > 


n placea. 

o"S>- 


Power shift A and MQ left n places. 
Couple zeros Into MQ-<,, MQ, to A.q. 



drum address, d selects the drum; p. 
Read N and words In memory addresses following numerically to drum. 
significance as In 110 



MQ has the same 



120 


ZTA 


Clair A to Zero 


12* 


PI 


MIA — > A 


121 




Claar A 


125 


NI 


— MIA — > A ( — denotes digit Inversion 


122 




Clear A 


126 


PHI 


| M | I A— > A of M ). 


123 




Claar A 


127 


NKI- 


-| M | I A— > A 


130 


HTL 


Halt c — > left command In M 


13* 


HTR 


Halt c — > right command In M 


131 


H1L 


Halt if H 1 on: e — > left command In N 


135 


H1R 


Halt If H, on; c — > right command In M 


132 


H2L 


Halt If Hj, onj c — > left command In M 


136 


H2R 


Halt If H 2 on; c — > right command In M 


111 


H3L 


Halt if Ho on; c — > left command In M 


137 


HJH 


Halt If H, on; e —> right command In M ;_ 
Search all SCRs for Match * 


1*0 




Write Una Surfer 


14* 




1*1 




Read Una buffer 


1*5 




Search all SCRs for Mismatch' 


1*2 




Write SCR 


1*6 




Display Oraphlc I/O 


1*3 




Read SCR 


1*7 




Read Oraphlc I/O Tablet 


150 












160 












170 













•A aamr arter <10.l) directed to tha Plotter 
aa aeiaatad by 10.0 ZH6 gates only tha 
oontentl of tha apaolflad maaury word to tha 
Plotter najiatar with tha following meaning t 



DBPIHITIOHS 



^%-Clrala Radius 
j)*ie* x Mcnltuda 

oalaotlon 
Hgj-Clrela Drawing 
Mjg-Llne Drawing 
Mj.-Ara Seleotlon 
^jg.1 nunltud. 



A 

MQ 
M 

20*39 



Accumulator 

Multiplier Quotient Register 

Word In the M th addreaa in Internal Storage 

Digits In position 2" 80 through 2"39 of the word In A 

Control goes to 

Logical (digit by digit) product or Intersection 



ol i | i I > | <T> I s 
I I 

_, I 

Left 
Oparatlon 



7 I S I 9 i 10 I II I II I IJ I M ht | IS I IfT'S 

I I 

..... ... I . . .1 . 



Left 
Addreee 



Hat 

usee 



ai (aalzalzei uPisli' 
I 



_L. 



Right 
Operation 



2S|»|M|>t|UiulMlIS!'M'»|M|» 
t I 

. ... l_. . 1 -'..J 

|' l Rlghtn':^'.. 

i'"'. Addreaa "1 i*.t 



u~os$ 




■ — o 

;= 2- 

> 3 

■.'■- 4. 

=;'■ 7 

- T 

■■■« 7o 
- // 
:'.■* />• 
,,.«'• /3 

=- /4- 

= ir 

* ;& 

> /7 

■'if ■ /r 
>:' '? 

= 3.0 

=- -a-; 

- >>- 

- >5 

s *? 

- 3) 

- 3> 
~-*3 

- 3* 

■.=- ?r 
- ->V. 

- 37 



/SUwC <R*-<Q3 g^wa*^/ "PS>t- 
tS«~<6 Q4-Q& O^jot^-fVL. ■. \ 






W*-*Jr* 






**.K- -*-♦% 



= ^ jS»^-i/xL*»^tA_"<fe^- o»o £$,3,) 

- 4g Ms? -£z?- o>v (9-?y 

- So ^Tx^X -fr+Jr "f*- T^> 

« 

- 6o Jt>^XS^^ dU^ (/'•.••;•■ j^rt. -^te: ^*i^. 
= 7^ £ju*£ ^*A^i fr*.&x&r, 



•.»' 



- ?o T/i^^^J^A fi*. 



9y^ i 






LP r 



3). 

2 






'**£ — > 



<&£$ 



-o 



X W****A*%JE£*t 2«r\. £ryff~* t 

XI &«*»/ seduce 
>0 76/ scfectCoK 

XT 

X >* 7P***mit and -*• X5" 



t^/~ dZ <> 65 jr*" 1 — W»**C. , >trtut«_«-* , 






5- (, 



£// J 6 ©**/* 

£/w Stop 
GO &o 

<9/r 






JOSS 



Vn $r*r£ /sn/ 
\J} *&r sru / $m 



«V*^ 






YCU- 



■ ^t-g^v- 



W 
u 

r 
a 

K 

// 
A 

U7 

V 
■& 

X 



"P 

Q 

=£ 

T 
5 
V 
R 









oooo 
000/ 

000 &> 
43 4o 
4$Uo 
4foo 

4f6>0 
4-boo 

4-100 
4lUo 

5*2.04- 
SxiL 
£22,0 

5*54-0 
5ZS4- 

573-0 

Sl4o 



(oobe 
btoo 

621? 
bioo 



I 

s- 

2-x£>L 

/(, 

Z4- 
llo 
J2- 

4~r 
tt> 

/3V 
SO 

l>- 

20 

X* 

l(> 

It* 

n 



32- 

7 
f 

is- 

S3 
&> 

4 
710 



fC+oU+44 






W 



!•:.:■; . 



' JOSS Regions: r''i^'v^*0 ; 'S?^'v 

'.«;'■; ^TDire-cf'ofy "Per /-Ptcfri/test: : ':'':i;~--'\- 



9<ry 



t L 

.■■■ ; : : : : ;M : :-; : 



7 



Tfbcer.r ..■'• *$) treat try -'... 



3- 



y.--v':. 



ti 



• R ; -..Tfeftet-'^r.^ fe.-iK&rpret block feXworis). 

y : P^ : yr' ■''^.-■'•'■ : y ; : -P;y-- :: 'P. : : '- :; - ; ": ;;: ': : .':i';K'.>v : ••V 1 ; .'::C-'-'-; 

Y \ ',V ; ■ " . 

■-■■■'" ■■"• ?7 ' ''**"•■■■"•'■ ■■•'■■•■"•■'■ 






A E000+ 


A 





100 


0000 


000*0000 


TERMINATION SIGNAL 




A E001 


A 


1 


000 


0000 


001*6001 


1 




A E002 


A 


2 


000 


0000 


001*6002 


2 




» E003 


A 


3 


000 


0000 


001*5003 


3 




A E004 


A 


4 


000 


0000 


001 ,6004 


4 




A E005 


A 


5 


000 


0000 


001 »5005 


5 




A E006 


A 


6 


000 


0000 


001 »5006 


6 




A E007 


A 


7 


000 


0000 


001 ,4007 


7 




A E008 


A 


8 


000 


0000 


001*6010 


8 




A E009 


A 


9 


000 


0000 


001 ,5011 


9 




A EOIO 


A 


10 


000 


0000 


000*3161 






A EOll 


A 


11 


000 


0000 


000*3161 






A E012 


A 


12 


000 


0000 


000*3161 






A E013 


A 


13 


000 


0000 


000*3161 






A E014 


A 


14 


000 


0000 


000*4016 


SPACE 




A E015 


A 


15 


ooo 


0000 


000,3161 






A E016 


A 


16 


000 


0000 


000*6020 


SEMICOLON 




A E017 


A 


17 


001 


V 1 


002*5021 


LCA 




A E018 


A 


18 


002 


V 2 


002*5022 


LCB 




A E019 


A 


19 


003 


V 3 


002*4023 


LCC 




A E020 


A 


20 


004 


V 4 


002,5024 


LCD 




A E021 


A 


21 


005 


V 5 


002*4025 


LCE 




A E022 


A 


22 


006 


V 6 


002*4026 


LCF 




A E023 


A 


23 


007 


V 7 


002*3027 


LCG 




A E024 


A 


24 


010 


V 8 


002*5030 


LCH 




A E025 


A 


25 


Oil 


V 9 


002,4031 


LCI 




A E026 


A 


26 


000 


0000 


000*3161 






A E027 


A 


27 


000 


0000 


000*3033 


• 




<\ E028 


A 


28 


000 


0000 


000*3161 






A E029 


A 


29 


000 


0000 


000*3161 






A — -E030 


A 


30 


000 


0000 


000,3036 


EJECT+CR+EOM 




A E031 


A 


31 


000 


0000 


000,2037 


EJECT+CR 




A E032 


A 


32 


000 


= 33 


240*6040 


MULTIPLY DOT 




A E033 


A 


33 


012 


V 10 


002,5041 


LCJ 




A E034 


A 


34 


013 


V 11 


002*5042 


LCK 




A E035 


A 


35 


014 


V 12 


002*4043 


LCL 




A E036 


A 


36 


015 


V 13 


002*5044 


LCM 




A E037 


A 


37 


016 


V 14 


002.4045 


LCN 




A E038 


A 


38 


017 


V 15 


002*4046 


LCO 




A E039 


A 


39 


020 


V 16 


002*3047 


LCP 




A E040 


A 


40 


021 


V 17 


002*5050 


LCQ 




A E041 


A 


41 


022 


V 18 


002,4051 


LCR 




A E042 


A 


42 


100 


0000 


000*4052 


CR+EOM+TERMINAL SIGNAL 


IN SIGN 


A E043 


A 


43 


002 


0000 


004,3053 


= 




A E044 


A 


44 


000 


= 32 


140,4054 


— 




A E045 


A 


45 


100 


0000 


000,3416 


SPECIAL SPACE 




A E046 


A 


46 


000 


0000 


000,3161 






A E047 


A 


47 


000 


0000 


000*3161 






A E048 


A 


48 


000 


0000 


001,5060 


ZERO 




A E049 


A 


49 


000 


= 34 


240*4061 


/ 




A E050 


A 


50 


023 


V 19 


002,4062 


LCS 




A E051 


A 


51 


024 


V 20 


002*3063 


LCT 




A— E052 


A 


52 


025 


V 21 


002,4064 


LCU 




A E053 


A 


53 


026 


V 22 


002,3065 


LCV 




\ E054 


A 


54 


027 


V 23 


002,3066 


LCW 





A E055 


A 


55 030 V 24 002*2067 


LCX 


A E056 


A 


56 031 V 25 002*4070 


LCY 


A E057 


A 


57 032 V 26 002*3071 


LCZ 


<\ E058 


A 


58 000 0000 000*3161 




A E059 


A 


59 000 0000 000*2073 


» 


A E060 


A 


60 000 = 31 140*3074 


+ 


A E061 


A 


61 000 0000 000*2075 


TAB 


A E062 


A 


62 000 0000 000*3161 




A E063 


A 


63 000 0000 000*3161 




A E064 


A 


64 000 0000 000*3161 




A E065 


A 


65 000 0000 000*5101 


PRIME 


A — -E066 


A 


66 000 0000 000*5102 


QUOTE MARKS 


A— E067 


A 


67 000 0000 000*4016 


STRIKE OUT CHARACTER 


A E068 


A 


68 000 0000 000*5104 


$ 


A E069 


A 


69 003 0000 004*4105 


LESS THAN OR = 


A E070 


A 


70 006 0000 004*4106 


GREATER THAN OR = 


A E071 


A 


71 001 0000 004*3107 


LESS THAN 


A E072 


A 


72 004 0000 004*5110 


GREATER THAN 


A E073 


A 


73 000 A112 020*4111 


( 


A E074 


A 


74 000 0000 000*3161 




A E075 


A 


75 000 0000 000*3161 




A— E076 


A 


76 000 0000 000*3161 




A E077 


A 


77 000 0000 000*3161 




A E078 


A 


78 000 0000 000*3161 




A E079 


A 


79 000 0000 000*3161 




A E080 


A 


80 000 0000 000*5120 


COLON 


A E081 


A 


81 041 V 27 002*4121 


A 


A E082 


A 


82 042 V 28 002*4122 


B 


A E083 


A 


83 043 V 29 002*3123 


C 


A E084 


A 


84 044 V 30 002*4124 


D 


A E085 


A 


85 045 V 31 002*3125 


E 


A E086 


A 


86 046 V 32 002*3126 


F 


A E087 


A 


87 047 V 33 002*2127 


G 


A E088 


A 


88 050 V 34 002*4130 


H 


A E089 


A 


89 051 V 35 002*3131 


I 


A E090 


A 


90 000 0000' 000*3161 




A E091 


A 


91 000 A123 010*2133 


RIGHT BRACKET 


A E092 


A 


92 000 0000 000*3161 




A E093 


A 


93 000 0000 000*3161 




A E094 


A 


94 000 0000 000*3161 




A E095 


A 


95 000 0000 000*3161 




A— E096 


A 


96 000 A 96 030*5140 


ABS VAL BAR 


A E097 


A 


97 052 V 36 002*4141 


J 


A E098 


A 


98 053 V 37 002*4142 


K 


A E099 


A 


99 054 V 38 002*3143 


L 


A E100 


AlOO 055 V 39 002*4144 


M 


A E101 


A101 056 V 40 002*3145 


N 


A E102 


A102 057 V 41 002*3146 





A E103 


A103 060 V 42 002*2147 


P 


A E104 


A104 061 V 43 002*4150 


Q 


A E105 


A105 062 V 44 002*3151 


R 


A E106 


A106 000 0000 000*3161 




A E107 


A107 005 0000 004*2153 


NOT = 


A E108 


A108 000 0000 000*3154 


UNDERSCORE 


^ E109 


A109 000 0000 000*2433 


PERIOD WITH FLAG <0 



= SPACE 



155 CAN'T GET 



A EllO 


AllO 


OOO 


0000 


000 


»3161 




A El 11 


Alll 


000 


0000 


000 


»3161 




A— E112 


A112 


000 


A 73 


010 


»4160 


) 


\ E113 


A113 


000 


0000 


000 


i3161 


QUESTION MARK 


A E114 


A114 


063 


V 45 


002 


,3162 


S 


A E115 


A115 


064 


V 46 


002 


,2163 


T 


A E116 


A116 


065 


V 47 


002 


.3164 


U 


A E117 


A117 


066 


V 48 


002 


► 2165 


V 


A' E118 


A118 


067 


V 49 


002 


,2166 


w 


A E119 


A119 


070 


V 50 


002 


,1167 


X 


A E120 


A120 


071 


V 51 


002 


,3170 


Y 


A E121 


A121 


072 


V 52 


002 


,2171 


Z 


A E122 


A122 


000 


0000 


000 


.3161 




A E123 


A123 


000 


A091 


20, 


.1173 


LEFT BRACKET 


A E124 


A124 


000 


= 35 


440, 


.2174 


* 


A E125 


A125 


000 


0000 


000 


.1175 


TAB 


A E126 


A126 


000 


0000 


000, 


.3161 




A E127 


A127 


000 


0000 


000, 


.3161 




A E128 


A128 


000 


0000 


000, 


.0037 


EJECT 


A E129 


A129 


000 


0000 


000, 


.0056 


CARRIAGE RETURN 


A E130 


A130 


000 


0000 


000, 


.0155 


PSEUDO PERIOD 


A E131 


A131 


000 


0000 


000, 


.0055 


PSEUDO SPACE 



DOOOEOOO+ 
D000E010 
D000E015 
D000E020 
D000E025 
DOOOE030 
D000E035 
D000E040 
DOOOE045 
DOOOE050 
D000E055 
D00OE06O 
D000E062 
D000E064 
DOOOE066 
D000E068 
D000E070 
DOOOE080 
D000E085 
D000E090 
DOOOEIOO 
DOOOE110 
D000E120 
D000E125 
D00OE13O 
DO0OE135 
D000E140 
D000E160 
D0O0E170 
D000E180 
D000E190 
D000E200 
DOOOE205 
D000E210 
DOOOE220 
D000E230 
D000E240 
D000E242 
•D000E244 
D000E246 
D000E248 
DOOOE250 
D000E252 
D000E254 
DOOOE256 
D000E258 
D000E260 
D000E270 
DOOOE280 
D000E290 
D000E300 
D000E302 
D000E304 
DOOOE306 



1 



* 23 



020 
020 
025 
024 
021 
072 
020 
020 
050 
002 
020 
021 
001 
020 
014 
020 

020 
020 
020 

020 
056 

001 
010 
020 



* 3 020 




18 



* 24 



* 10 



* 31 



* 32 



* 33 



020 
020 
020 
020 
001 
020 
020 
020 
124 
002 
020 
025 
020 
050 
020 
020 
020 



5 020 

020 
050 
002 



* 90 

* 91 
T 

21 
Q 8 
P 18 
T 

* 8 
P 23 
T 

* 24 
$ 



P 
P 
P 



7 




* 81 
Q 8 
P 23 
$ 

* 82 
Q 8 



4 
3 




* 83 
$ 

* 84 
K 4 
P 23 
Q 9 




7 

12 




K 35 
* 32 
P 1 
A 27 



12 

12 

1 



050 
124 
50 
052 
002 
050 
002 
024 
023 
010 
001 
024 
010 
010 



M 
P 
K 
T 
* 
* 

P 
* 

I 

T 
* 
* 

K 
S 



010 = 



* 31 
$ 

* 85 
$ 

* 86 
P 18 
T 

* 94 



001 
001 
010 

024 
014 
020 
050 

010 

010 

050 
002 
050 
010 
056 
010 
050 
010 
025 
010 
124 
001 
024 
056 
050 
010 
010 

010 

024 
023 

010 





12 

6 



6 

8 

18 

23 

6 



24 

24 

2 

1 

13 

64 

81 
4 
2 
64 
82 
1 
9 



P 21 



64 
83 
64 
84 
16 
10 
21 
= 51 
P 3 
= 7 
P 2 
= 2 
K 35 
$ 1 



A 
* 

K 
* 



27 
5 
3 

33 



= 1 
= 64 

* 85 
= 64 

* 86 
I 2 
T 
S 1 



BODY OF ERROR ROUTINE 
SET POINTER 



JUMP IF EO 

JUMP IF INDIRECT 



JUMP IF DIRECT AND E6 
JUMP UNLESS TROUBLE IN X7 

JUMP IF NOT OVERFLOW IN X7 

POP Q3 

BACK TO X7 IGNORING OVERFLOW 

•ERROR-' 

JUMP IF AT TOP LEVEL 
JUMP IF NO TROUBLE IN X7 
•DURING-' 



JUMP IF TROUBLE IN TOP LEVEL DO-FOR 
•AT- 1 



•STEP-' 

CLEAR P16 

JUMP IF TROUBLE IN X7 

FIND STEP 

UNPACK 

COPY STEP NUMBER FROM R TO S 



•ABOVE* 

COLON AND TWO SPACES 

JUMP IF E2 



D000E310 
D000E320 
D000E330 
D000E340 
D00OE350 
D000E360 
D000E365 
D000E370 
D0O0E380 
D000E385 
D000E390 
D000E395 
D000E400 
D000E410 

D000E420 
DOO0E430 
D000E440 
D000E450 
D000E460 
D000E470 
D000E480 
D000E490 
D00OE5OO 
D000E510 
D000E520 
D000E530 
D000E540 
D000E550 
D000E560 
D000E570 
D000E580 
D000E590 
D0OOE6O0 
D000E610 
D000E620 
DOOOE630 
D000E640 
D000E650 
D000E680 
D000E690 
D000E700 
D000E710 
D000E720 
D000E730 
DOO0E74O 
D000E750 
D000E760 
D000E770 
D000E780 
D000E790 
D000E800 
D000E810 
D000E820 
D0O0E830 
D000E840 



* 8 

* 6 



* 7 



* 21 

* 22 

* 11 



* 12 



* 13 



* 14 

* 15 



* 16 



* 17 

* 18 

* 19 

* 20 

* 80 

$ 

* 81 

* 82 

* 83 

* 84 

* 85 

* 86 

* 87 



004 
004 
020 

010 
020 
020 

020 
020 
020 
020 
020 
020 
010 
020 
020 
010 
020 
020 
010 
020 
020 
052 
020 
010 
020 
120 
004 
020 
120 
020 
020 
050 
056 
056 
050 
010 



H 31 

S 

* 80 

* 11 

s o 

$ 

* 87 
Q 

$ 
Q 
K 
Q 
$ 
* 
Q 
$ 
* 

Q 
$ 
* 



110 * 80 

110 * 80 

010 = 64 

* 80 



8 

8 
4 
2 


11 
4 


12 
6 


13 



Q 14 



050 
010 

001 
010 
002 
050 
001 
010 



* 
P 



12 
64 
87 
22 
76 
21 
23 
12 
13 



001 * 13 
010 = 15 



15 

15 


Q 15 
$ 

Q 1 

Q 1 

* 18 

* 19 
Q 
X 12 



001 
010 

052 
005 
071 
010 
004 
010 
050 
010 
010 
050 
002 
056 
020 
004 
020 
060 



* 14 
= 17 



* 15 

* 16 
40 

= 29 
Q 14 
= 28 
Q 14 
$ 1 
= 29 
Q 15 

* 20 

* 17 



052 
007 
012 
013 
010 
031 
100 
010 
100 
050 
054 
010 
031 
012 
031 



♦4511*222 
,2000*000 
♦0641*221 
,4164*000 
,4630*350 
,0630,522 
,0000,000 
,4221*143 
,0000,000 
,0160*350 
♦4632*023 
,4161,101 
♦0330^340 
♦4632*023 
♦0630*422 



$ 31 
»3051 
,0000 
,4445 

♦ 0000 

♦ 0000 

♦ 3416 

♦ 0000 

♦ 2425 
,0000 
,0000 
»1016 
,2462 
,7143 
,1016 
,4463 



ERROR MESSAGE 



'IT'S A MESS. LET'S START OVER.* 

JUMP IF NO CONTROL STRUCTURE 

ERASE ONE LEVEL OF CONTROL STRUCTURE 

LOOP IF MORE 

RESET P23 FLAG 

CLEAN UP OPERAND STACK 



CLEAN UP OPERATOR STACK 



CLEAN UP AUXILIARY STACK 



CLEAN UP Q14 



CLEAN UP Q15 



REFILL SPARE TANK 



EXIT TO TRANSMIT AND SWITCH 
ERROR MSG INDEX AND TEXT BLOCK 

•ERROR-' 

•DURING-' 

•AT-' 
♦STEP-' 

•ABOVE* 

COLON AND TWO SPACES 

'IT'S A MESS. LET'S START OVER.' 



D0OOE850 




007 i 


»0461i 


.521! 


.2451 


D000E860 




015. 


»4524i 


>000< 


,0000 


DOOOE870 


* 90 




E 











D0O0E880 


* 91 




* 


80 








D000E900 


* 94 


020 


H 


27 


050 


P 


11 


D000E902 




020 


$ 





010 


= 


66 


D000E904 




020 


H 


28 


001 


* 


8 


D000E906 




072 




12 


050 


H 


20 


D000E908 




020 


J 


20 


052 


# 


96 


D000E909 


* 96 


020 


— 


— — 


050 


P 


11 


D000E910 




020 


$ 





010 


= 


66 


D000E912 




020 


$ 





010 


= 


36 


D000E914 








1 






2 


D000E916 




020 


H 


29 


001 


* 


95 


D000E918 




072 




12 


050 


H 


20 


D000E920 




020 


A 


59 


050 


P 


11 


D000E922 




020 


$ 





010 


= 


66 


D000E924 




020 


$ 





010 


= 


36 


D000E926 








1 






2 


D00OE928 


* 95 


020 


J 


20 


050 


P 


11 


D000E930 




020 


$ 





010 


= 


66 


D000E932 




010 


* 


8 






» 


D000E999 


/ 




D 





010 


,7000/ 



CONSTRUCT UNDEFINED MESSAGE 

PLACE LETTER 

JUMP IF NO INDICES TO COMPLETE MESSAC 

=77 LEFT RIGHT GROUPER IN J20 

PLACE LEFT GROUPER 
CONVERT FIRST INDEX 

JUMP IF NO SECOND INDEX 



PLACE COMMA 

CONVERT SECOND INDEX 

=77 LEFT RIGHT GROUPER IN J20 

PLACE RIGHT GROUPER 

JUMP BACK TO COMPLETE MESSAGE 



D001E000+ 


$ 










M 





D001E010 




020 


P 


1 


124 


K 


19 


D001E020 




025 


K 


19 


002 


* 


40 


D001E030 




020 


$ 





010 


= 


39 


D001E040 




020 


P 


1 


124 


K 


19 


D001E050 




025 


K 


19 


002 


* 


40 


D001E060 




020 


$ 





010 


= 


27 


D001E070 




020 


$ 





010 


= 


3 


D001E080 




124 


K 


19 


025 


K 


19 


D001E09O 




001 


$ 


1 


004 


H 


19 


DOOIEIOO 




020 


W 


12 


065 


T 





D001E110 




023 


T 





002 


* 


10 


D001E120 




020 


W 


10 


065 


T 





D001E130 




023 


T 





002 


* 


20 


DO01E14O 




020 


W 


8 


065 


T 





D001E150 




023 


T 





002 


* 


20 


D001E160 




020 


W 


4 


065 


T 





D001E17O 




023 


T 





002 


* 


30 


D001E180 




010 


E 


6 








D001E190 


* 10 


020 


$ 





010 


* 


50 


D001E200 




010 


X 


5 








D001E210 


* 20 


020 


Q 


8 


002 


E 


9 


D001E220 




020 


$ 





010 


* 


60 


D001E230 




010 


X 


5 








D001E240 


* 30 


020 


Q 


8 


002 


E 


9 


DO01E25O 




020 


$ 





010 


* 


70 


D001E260 




010 


X 


5 








D001E270 


* 40 


020 





8 


002 


E 


9 


D001E280 




020 


$ 





010 


* 


50 


D001E290 




020 


s 





010 


* 


60 


D001E30O 




020 


$ 





010 


* 


70 


D001E310 




010 


X 


5 








D001E320 


* 50 


024 


K 


2 


052 


* 


59 


D001E330 




020 


# 


58 


052 


* 


51 


D001E340 


* 51 


020 


— 





050 


H 


27 


D001E350 




124 


K 


34 


025 


K 


34 


D001E360 




001 


* 


52 


010 


$ 


1 


D001E370 




020 


$ 





010 


s 


75 


D001E380 


* 52 


020 


* 


51 


024 


K 


2 


D001E390 




052 


* 


51 


020 


H 


27 


D001E400 




124 


A121 


025 


A121 


D001E410 


* 59 


002 


— 





010 


* 


51 


D001E420 


* 58 




A 


17 








D001E430 


* 60 


024 


K 


2 


.052 


* 


69 


D001E440 




020 


Q 


10 


050 


* 


90 


D001E450 


* 61 


020 


* 


90 


056 


* 


62 


D001E460 




124 


K 


5 


025 


K 


1 


D001E470 


* 62 


005 


* 


66 


020 


— 





D001E480 




050 


* 


90 


050 


* 


91 


D001E490 


* 63 


020 


* 


91 


052 


* 


64 


D001E500 




124 


K 


6 


025 


K 


1 


D001E510 




005 


* 


65 


010 


$ 


1 


D001E520 


* 64 


004 


— 


--- 


060 


# 


91 


D001E530 




020 


$ 





010 


~ 


29 



BRANCH OF G5 DELETE 

JUMP IF TERMINAL 

VERIFY SPACE AND ADVANCE TO NONSPACE 

JUMP IF TERMINAL 
ACCUMULATE WORD 
ELIMINATE SPACES 

MALFORMED IF NOT TERMINAL 

JUMP IF 'VALUES* 

JUMP IF 'STEPS' 

JUMP IF 'PARTS' 

JUMP IF 'FORMS' 
ELSE MALFORMED 
ERASE ALL VALUES 

ERASE ALL STEPS (OR PARTS) - ILLEGAL 
ERASE ALL FORMS - ILLEGAL INDIRECT 
ERASE ALL - ILLEGAL INDIRECT 



ERASE ALL VALUES (SUBROUTINE) 



ERASE ALL STEPS (SUBROUTINE) 



D001E540 


* 


65 


010 


D001E550 






020 


D001E560 


* 


66 


010 


D001E570 






020 


D001E580 






120 


D001E582 






020 


D001E584 






050 


D001E586 






050 


D001E588 






050 


D001E590 


* 


67 


020 


D001E592 






020 


D001E600 


# 


69 


010 


D001E610 


* 


70 


024 


D001E620 






020 


D001E630 


* 


71 


020 


D001E640 






124 


D001E650 






005 


D001E660 


* 


72 


004 


D001E670 






020 


D001E680 


* 


73 


010 


D001E690 






020 


D001E700 






120 


D001E710 


* 


79 


010 


D001E720 


* 


90 




D001E730 


* 


91 




D001E999 




/ 





* 63 004 * 90 
$ 010 = 28 

* 61 004 Q 10 
$ 010 = 29 

050 Q 10 

Q 12 001 * 69 

Q 8 020 K 4 

Q 12 050 Q 13 

P 17 050 P 23 

$ 010 = 76 

Q 8 002 * 67 

K 2 052 * 79 

Q 11 050 * 91 

* 91 052 * 72 
K 6 025 K 1 

* 73 010 $ 1 

060 * 91 

$ 010 = 29 

* 71 004 Q 11 
$ 010 = 28 

050 Q 11 



D001 010*7000/ 



JUMP IF NO SUSPENDED TASK 



RESET P17 AND P23 FLAGS 
ERASE ONE LEVEL 



ERASE ALL FORMS (SUBROUTINE) 



LOCAL STORAGE 
LOCAL STORAGE 



D002E000+ 

D002E005 

D002E010 

D002E020 

D002E030 

D002E040 

D002E050 

D002E060 

D002E070 

D002E080 

D002E090 

D002E100 

D002E102 

D002E104 

D002E106 

D002E110 

DO02E120 

D002E130 

D002E140 

D002E150 

D002E160 

D002E170 

D002E180 

D002E190 

D002E200 

D002E201 

D002E202 

D002E203 

D002E204 

D002E205 

D002E210 

D002E220 

D002E230 

D002E232 

D002E234 

D002E240 

D002E250 

D002E260 

D002E270 

D002E280 

D002E290 

D002E300 

D002E310 

D002E320 

D002E330 

D002E340 

D002E350 

D002E360 

D002E370 

D002E380 

D002E390 

D002E400 

D002E410 

D002E420 



* 22 



* 23 



* 21 



020 

020 

025 

020 

020 

020 

025 

020 

020 

020 

050 

020 

022 

010 

020 

020 

020 

020 

020 

020 

020 

020 

020 

020 

020 

020 

071 

020 

002 

050 

020 

020 

020 

002 

020 

050 

001 

024 

020 

071 

024 

020 

025 

020 

010 

020 

124 

001 

020 

056 

020 

050 

050 




1 

34 
1 

1 

31 


4 

29 

27 

2 
27 



90 

7 

6 



6 



3 

29 

27 

6 

3 
3 

3 

1 

27 
3 
4 
3 

29 
9 
3 
1 

59 




19 
6 
3 
7 
4 

29 

27 



010 
124 
001 
050 
010 
124 
002 
010 
010 
050 
010 
052 
002 

050 

010 

050 

050 

001 

010 

002 

010 

050 

002 

052 

002 

002 

010 

010 

010 

010 

050 

010 

010 

124 

020 

024 

050 

001 

024 

050 

124 

001 

010 

010 
025 
010 
024 
010 
050 
020 
020 




70 
34 

6 



H 27 
= 1 



K 31 

* 1 
= 3 
= 12 
H 28 
S 1 

* 22 

* 3 



* 90 
= 26 
H 27 
H 29 

* 2 
= 17 
E 6 
= 41 
H 28 

* 21 



23 
2 
2 
71 
2 
1 

= 41 
H 29 
= 72 
2 
17 



E 
K 

H 28 
K 26 



Q 
# 

K 

Q 

A 
* 



3 
4 

26 
3 

59 
5 
2 

3 
19 

1 
13 

1 
H 28 



BRANCH OF G5 DELETE 
BORROW SPARE TANK 

VERIFY LETTER 
SAVE IT 
ADVANCE ONE 

JUMP IF LEFT GROUPER 
ELIMINATE SPACES 
PUSH Q3 



JUMP IF VALUE FOUND 
ELSE ERROR 
SAVE LETTER 
EVALUATE SUBSCRIPTS 
SET UP LETTER AGAIN 

JUMP IF Q7 EMPTY 

POP Q7 

MALFORMED IF EXTRA INDICES 

CHECK AND CONVERT FIRST INDEX 

SET UP FIRST INDEX 

JUMP IF DOUBLY INDEXED 



CHECK AND CONVERT SECOND INDEX 

SET UP SECOND INDEX 

FIND VALUE 

JUMP IF FOUND* ELSE ERROR 

PACK INFO INTO Q3 FOR LATER DELETE 



JUMP IF NOT COMMA 
ADVANCE TO NONSPACE 
LOOP BACK 
ELIMINATE SPACES 
VERIFY TERMINAL 

UNPACK AND DELETE 



Q 



D002E430 






025 


K 


26 002 * 


8 


D002E440 






020 


$ 


010 = 


75 


D002E450 






010 


* 


19 




D002E460 


* 


8 


124 


K 


42 050 H 


28 


D002E470 






020 


Q 


3 025 K 


26 


D002E480 






025 


K 


26 002 * 


13 


D002E490 






020 


H 


27 052 * 


14 


D002E500 


* 


14 


020 


— 


■ — 002 * 


19 


D002E510 






071 




6 002 * 


19 


D002E520 






020 


$ 


010 = 


71 


D002E530 






001 


# 


19 010 $ 


1 


D002E540 


# 


20 


020 


H 


21 056 * 


9 


D002E550 






020 


H 


22 056 * 


10 


D002E560 


* 


9 


020 


H 


23 056 — 


•— — 


D002E570 


* 


10 


020 


Q 


050 — 


-— 


D002E580 






020 


H 


22 124 K 


5 


D002E590 






050 


Q 


020 H 


27 


D002E600 






052 


* 


11 052 * 


12 


D002E610 


* 


11 


020 


— 


124 K 


5 


D002E620 






025 


K 


1 002 * 


19 


D002E630 






020 


K 


4 010 $ 


1 


D002E640 


* 


12 


050 


— 


■ — 010 * 


19 


D002E650 


* 


13 


070 




9 124 K 


42 


D002E660 






050 


H 


29 010 $ 


1 


D002E670 






020 


H 


27 052 * 


15 


D002E680 


* 


15 


020 


— 


002 * 


19 


D002E690 






071 




5 002 * 


19 


D002E700 






020 


S 


010 = 


72 


D002E710 






001 


* 


19 020 H 


24 


D002E720 






052 


* 


16 020 H 


25 


D002E730 






052 


* 


17 020 H 


26 


D002E740 


* 


16 


052 


— 


- — 020 Q 





D002E750 


* 


17 


050 


— 


— 020 H 


25 


D002E760 






070 




21 050 Q 





D002E770 






020 


H 


22 056 * 


18 


D002E780 


# 


18 


020 


K 


6 124 — 





D002E790 






025 


K 


1 001 * 


20 


D002E800 


* 


19 


020 


$ 


010 = 


13 


D002E810 






020 


Q 


2 002 * 


6 


D002E815 






020 


$ 


010 * 


80 


D002E820 






010 


X 


5 




D002E830 


# 


70 


024 


K 


2 052 * 


79 


D002E835 






020 





1 056 * 


71 


D002E840 


* 


71 






020 - 


-— — 


D002E845 






056 


* 


72 010 $ 


1 


D002E850 


* 


72 


020 


Q 


050 — 


___ 


D002E855 






020 


Q 


1 050 Q 





D002E860 






020 


K 


4 050 Q 


1 


D002E865 


* 


79 


010 


— 







D002E870 


* 


80 


024 


K 


2 052 * 


89 


D002E875 






020 


Q 


056 * 


81 


D002E880 


* 


81 


050 


Q 


1 020 - 


-— — 


D002E885 






056 


* 


82 004 K 


4 


D002E890 


* 


82 


056 


* 


83 020 - 


— — •— 


D002E895 


* 


83 


050 





060 - 


— — 



JUMP IF INDEXED 

DELETE VALUE(S) FOR LETTER 



JUMP IF DOUBLE INDEX 

SINGLE INDEX 

JUMP IF NOT A VECTOR 

FIND VALUE 
JUMP IF CAN»T 



JUMP IF DONE 

UNDEFINE LETTER IF NO VALUES AND JUMF 
DOUBLE INDEX 



JUMP IF NOT A MATRIX 

FIND VALUE 
JUMP IF CAN'T 



JUMP IF NO MORE VALUES IN ROW 
POP Q3 

LOOP IF MORE TO DELETE 
REFILL SPARE TANK 

EXIT 

BORROW SPARE TANK (SUBROUTINE) 



REFILL SPARE TANK 



D002E900 * 89 010 

D002E910 * 90 * LOCAL STORAGE 

D002E999 / D002 010*7000/ 



D003E000+ 

D003E010 

D003E020 

D003E030 

D003E040 

D003E050 

D003E060 

D003E070 

D003E080 

D003E090 

D003E100 

D003E110 

D003E120 

D003E130 

D003E140 

D003E150 

D003E160 

D003E170 

D003E180 

D003E190 

D003E200 

D003E210 

D003E220 

D003E230 

D003E240 

D003E250 

D003E260 

D003E270 

D003E280 

D003E290 

D003E300 

D003E310 

D003E320 

D003E330 

D003E340 

D003E350 

D003E360 

D003E380 

D003E390 

D003E400 

D003E410 

D003E430 

D003E440 

D003E450 

D003E460 

D003E470 

D003E480 

D003E490 

D003E500 

D003E510 

D003E520 

D003E525 

D003E530 

D003E540 



M 



* 10 

* 20 

* 30 

* 40 

* 50 

* 51 

* 52 



* 53 

* 54 



020 
020 
025 
020 
020 
124 
001 
020 
023 
020 
023 
020 
023 
020 
023 
010 
020 
020 
010 
020 
010 
020 
010 
010 
024 
020 
020 
020 
020 



* 60 

* 61 

* 62 



* 63 



001 P 
050 P 
020 P 
020 - 
050 P 
020 $ 
020 P 
020 $ 
010 * 
024 K 
020 Q 
020 A 
020 S 
020 
024 
020 
050 
020 
020 $ 
* 

020 $ 
020 - 
124 K 



P 
K 

P 
S 





1 

19 



19 
6 

10 

8 

4 


12 

6 


4 

5 

5 
4 
2 

10 

42 


18 

26 
19 
19 

19 


15 


53 

2 
11 
42 


19 

2 

19 



66 


13 



010 
124 
002 
010 
010 
025 
004 
065 
002 
065 
002 
065 
002 
065 
002 

010 
010 

010 

010 





= 3 
K 19 
* 10 
= 27 
= 3 
K 19 
H 19 




20 


20 


30 


40 



* 50 

* 60 

* 50 

* 60 



052 
050 
050 
010 
056 
020 
050 
010 
052 
001 
056 
014 
002 
010 

052 
050 
050 
010 
052 
052 
001 
056 
050 
010 

010 
050 
050 



P 26 
P 18 
S 1 
= 78 
* 52 



18 

1 

54 

51 

3 

= 7 
* 70 
= 78 



P 
P 
S 

# 
# 
P 
P 
P 



26 
19 

1 
78 
62 
63 
26 

3 
12 
64 
66 
62 



1 



EXTENSION OF G6 FOR 'ALL — - » 
ELIMINATE SPACES 

JUMP IF TERMINAL 
ACCUMULATE WORD 
ELIMINATE SPACES 
VERIFY TERMINAL 



JUMP IF 'STEPS' 

JUMP IF 'PARTS' 

JUMP IF 'FORMS' 

JUMP IF 'VALUES' 

ELSE MALFORMED OR ILLEGAL 

TYPE ALL (STEPS FIRST) 

THEN FORMS 

THEN WADE INTO D4 FOR VALUES 

TYPE ALL STEPS (OR PARTS) 

TYPE ALL FORMS 

WADE INTO D4 FOR VALUES 
TYPE ALL STEPS (SUBROUTINE) 
INITIALIZE P18 

LINE FEED 

EXIT VIA P26 WHEN DONE 
TYPE STEPS WITHIN PART 



UNPACK TO S 

JUMP IF INTERRUPT SIGNAL 

TRANSMIT STEP 

TYPE ALL FORMS (SUBROUTINE) 



LINE FEED 



EXIT VIA P26 IF NO MORE FORMS 

INITIALIZE OUTPUT STRING POINTER 
INSERT 'FORM' IN OUTPUT STRING 

INSERT SPACE 



D003E550 




020 


T 


124 


K 


11 


D003E560 




070 


10 


50 


T 


2 


D003E570 




020 


J 14 


025 


T 


2 


D003E580 




052 


* 64 


010 


$ 


1 


D003E590 




120 





004 


T 


1 


D003E600 


* 64 


044 





060 


H 


20 


D003E610 




020 


$ 


010 


= 


36 


D003E620 






1 






9 


D003E630 




020 


A 80 


050 


P 


11 


D003E640 




020 


$ 


010 


= 


66 


D003E650 




020 


A 42 


050 


P 


11 


D003E660 




020 


$ 


010 


r= 


66 


D003E670 




020 


P 15 


002 


•* 


70 


D003E680 




020 


$ o 


010 


= 


78 


D003E690 




020 


$ 


014 


= 


7 


D003E710 




020 


$ 


010 


= 


78 


D003E720 




010 


* 61 








D003E760 


* 66 


053 


,0461 


»222i 


,2200 


D003E770 


* 70 


020 


H 12 


024 


K 


32 


D003E780 




050 


H 9 


010 


X 


10» 


D003E999 


/ 




D003 


010 


,7000/ 



CONVERT FORM NUMBER TO OUTPUT STRING 

INSERT COLON 

INSERT CR+EOM 

JUMP IF INTERRUPT SIGNAL 

TRANSMIT FORM NUMBER LINE 

UNPACK TO S 

TRANSMIT FORM 

LOOP 

•FORM' 

FAKE AN 'RP 

IN H9 AND JUMP 



D004E000+ 

D004E010 

D004E015 

D004E020 

D004E025 

D004E030 

D004E040 

D004E050 

D004E060 

D004E070 

D004E080 

D004E090 

D004E100 

D004E110 

D004E120 

D004E125 

D004E130 

D004E140 

D004E150 

D004E152 

D004E154 

D004E156 

D004E158 

D004E160 

D004E165 

D004E170 

D004E175 

D004E180 

D004E185 

D004E190 

D004E200 

D004E205 

D004E210 

D004E215 

D004E220 

D004E230 

D004E235 

D004E240 

D004E245 

D004E250 

D004E255 

D004E260 

D004E265 

D004E270 

D004E275 

D004E280 

D004E290 

D004E300 

D004E310 

D004E320 

D004E330 

D004E340 

D004E350 

D004E360 



* 

* 1 

* 2 



* 3 



* 4 



* 5 



* 6 

* 10 

* 11 

* 12 

* 13 



* 20 



* 21 

* 22 



* 23 

* 24 



120 
020 A 
020 $ 
020 K 
020 * 
020 P 
020 - 
052 * 
025 K 
020 - 
002 
001 
001 
023 
050 
050 H 
020 $ 
020 P 
050 
001 
020 
020 
020 $ 
020 P 
050 
001 
020 
002 
050 
050 
056 
056 
001 
050 
050 H 
050 H 
020 P 
020 K 
020 $ 
014 * 
020 P 
002 * 
020 H 
020 H 
020 P 



001 
050 
020 
024 
20 - 
050 P 
050 H 





42 



4 

90 

30 

3 
34 

4 
20 
10 
18 
19 
28 


30 
30 

1 
19 
42 


18 
18 


18 

5 
27 
28 
12 
13 
30 
28 
28 
30 
27 

4 


11 
18 

5 
27 
30 
28 

30 

29 

29 

2 

29 
29 



050 
050 
010 
050 
050 
052 
050 
124 
001 
050 
071 
071 
010 
001 
020 
050 
010 
024 
025 
010 
001 
050 
010 
024 
025 
010 
071 
020 
020 
020 
024 
020 
010 
124 
020 
010 
050 
050 
010 

071 
010 
050 
050 
056 
020 
50 
010 
052 
052 
001 
124 
020 



M 
P 
S 

P 
P 
* 




18 
1 
78 
19 
30 
2 

H 27 
K 34 

* 5 
H 30 

5 
1 
5 
5 

K 4 
H 29 

* 50 



* 
* 



3 
91 
1 
6 
1 

= 78 
K 26 
K 36 
X 5 
6 
H 27 
H 30 
P 28 
K 1 

$ 1 
K 42 

$ 1 
H 27 
H 29 
* 50 



5 

1 

27 

28 

22 

28 
1 
24 
25 
21 
42 
28 



EXTENSION OF G6 VIA D3 FOR 
INITIALIZE PHASE TO 

LINE FEED 

RESET LINE FEED FLAG 

INITIALIZE POINTER 

PICK UP NEXT CHARACTER WORD 



•ALL VALUE 



JUMP 
PICK 
JUMP 
JUMP 
JUMP 
JUMP 
SET 



IF NOT LETTER 
UP HEAD OR VALUE 
IF SCALAR 
IF MATRIX 

IF VECTOR ELSE UNDEFINED 
UNLESS SCALAR PHASE 
LF FLAG 



TYPE SCALAR VALUE 
ADVANCE SCANNER 



LOOP 
JUMP 



IF 
IF 



MORE 
NO LINE 



FEED FLAG 



LINE FEED 
ADVANCE PHASE 

JUMP IF MORE PHASES* ELSE EXIT 

VECTOR 

JUMP IF NOT VECTOR PHASE 



TYPE VECTOR ELEMENT 

LOOP 

MATRIX 



D004E370 
D004E380 
D004E390 
D004E400 
D004E410 
D004E420 
D004E430 
D004E440 
D004E500 
D004E502 
D004E504 
D004E506 
D004E508 
D004E510 
D004E512 
D004E514 
D004E516 
D004E518 
D004E520 
D004E522 
D004E524 
D004E526 
D004E528 
D004E530 
D004E532 
D004E534 
D004E536 
D004E538 
D004E540 
D004E542 
D004E544 
D004E546 
D004E548 
D004E550 
D004E552 
D004E554 
D004E556 
D004E558 
D004E560 
D004E562 
D004E564 
D004E566 
D004E568 
D004E570 
D004E572 
D004E574 
D004E576 
D004E578 
D004E580 
D004E582 
D004E584 
D004E586 
D004E588 
D004E589 
D004E590 



124 

020 

* 25 020 

020 
010 

* 30 020 

020 
010 

* 50 050 

021 
020 
025 
020 

* 51 020 

050 
020 
025 
020 

* 52 020 

050 

* 53 020 

* 69 020 

024 
020 
010 

* 54 020 

020 
020 
020 
020 
020 
050 
020 

020 
020 
020 
020 
050 
020 

* 55 020 

020 

* 56 020 

020 
020 
020 
020 
071 
050 
001 
002 
002 

* 71 025 



K 42 
P 27 




23 
42 



5 
31 

7 



050 H 28 

050 H 27 

050 H 30 

010 * 50 



H 28 
* 92 



3 

4 

93 



H 29 
* 92 



2 
3 

93 


93 
1 


69 



H 27 
$ 
H 28 
A 73 
$ 
H 28 
H 20 
$ 
1 
H 29 



59 




H 29 

H 20 

$ 

1 

A112 
$ 




43 






H 30 

1 



94 
65 
65 

71 
6 



020 H 30 



50 
010 

010 
050 
001 
002 
014 
024 
010 
001 
002 
014 
024 
010 
050 
002 
050 
010 

050 
010 
001 
050 
010 
070 
010 
010 

001 
050 
010 
070 
010 
010 

050 
010 
010 
050 
010 
010 
124 
072 
024 
025 
020 
021 
050 
071 



S 1 
= 78 



1 
93 
53 
51 
51 
93 

1 
53 
52 
52 
93 

1 
12 
54 
93 
62 

11 
66 
56 
11 
66 
12 

1 
36 

2 
55 
11 
66 
12 

1 
36 

2 
11 
66 
62 
11 
66 
62 
11 
32 

3 

9 
94 

1 
93 

9 



TYPE MATRIX ELEMENT 
LOOP 

LINE FEED 

SAVE LINK 



INITIALIZE OUTPUT LINE 
JUMP WHEN ALL SPACES ARE IN 

INSERT SPACE 
LOOP 

INSERT LETTER 

JUMP IF NO SUBSCRIPTS 

INSERT LEFT PARENTHESIS 



CONVERT FIRST SUBSCRIPT 
JUMP IF NO 2ND SUBSCRIPT 
INSERT COMMA 

CONVERT SECOND SUBSCRIPT 



INSERT RIGHT PAREN 

INSERT SPACE 

INSERT •=• 

INSERT SPACE 



JUMP IF SCIENTIFIC NOTATION REQUIRED 
JUMP IF SCIENTIFIC NOTATION REQUIRED 
JUMP IF NEGATIVE XP 
SET SPACE COUNTER 



D004E592 

D004E594 

D004E596 

D004E598 

D004E600 

D004E602 

D004E604 

D004E606 

D004E608 

D004E610 

D004E612 

D004E614 

D004E616 

D004E618 

D004E620 

D004E622 

D004E624 

D004E626 

D004E628 

D004E630 

D004E632 

D004E634 

D004E636 

D004E638 

D004E640 

D004E642 

D004E644 

D004E646 

D004E647 

D004E648 

D004E650 

D004E652 

D004E653 

D004E654 

D004E655 

D004E656 

D004E658 

D004E660 

D004E662 

D004E664 

D004E666 

D004E668 

D004E670 

D004E671 

D004E672 

D004E674 

D004E676 

D004E678 

D004E680 

D004E682 

D004E684 

D004E686 

D004E688 

D004E690 

D004E692 





002 


* 


57 


020 


* 


93 




024 


I 


1 


050 


* 


93 


57 


020 


* 


93 


002 


* 


58 




024 


K 


1 


050 


* 


93 




020 


$ 





010 


= 


62 




010 


* 


57 








58 


020 


H 


30 


124 


K 


12 




025 


K 


12 


001 


* 


59 




020 


A 


44 


050 


P 


11 




020 


$ 





010 


= 


66 


59 


020 


* 


94 


001 


* 


63 




024 


I 


1 


056 


* 


61 




020 


J 


14 


025 


* 


94 




056 


* 


60 


020 


I 


8 




025 


* 


94 


056 


* 


62 




020 


H 


30 


124 


K 


13 


60 


071 




40 


044 


— 







050 


* 


94 


060 


H 


20 




020 


$ 





010 


= 


36 


61 






1 




— 







023 


# 


94 


002 


* 


68 


64 


020 


A 


27 


050 


P 


11 




020 


$ 





010 


= 


66 




020 


* 


94 


050 


H 


20 




020 


$ 





010 


= 


36 


62 


010 


# 


4 
68 




****** 




63 


020 


1 


8 


025 


* 


94 




056 


* 


62 


010 


$ 


1 




020 


H 


30 


124 


K 


13 




050 


* 


94 


010 


* 


64 


65 


020 


$ 





010 


= 


64 






* 


96 




# 


96 




020 


H 


30 


124 


K 


12 




025 


K 


12 


001 


* 


66 




020 


A 


44 


014 


* 


66 


66 


020 


A 


14 


050 


P 


11 




020 


$ 





010 


= 


66 




020 


H 


30 


124 


K 


13 




071 




40 


044 


N 


8 




050 


* 


93 


060 


H 


20 




020 


$ 



1 


010 


— 


36 
1 




023 


* 


93 


002 


* 


70 




020 


A 


27 


050 


P 


11 




020 


$ 





010 


= 


66 




020 


* 


93 


050 


H 


20 




020 


$ 



4 


010 


= 


36 
8 


70 


020 


$ 





010 


= 


64 






* 


95 




* 


95 




020 


* 


94 


006 


* 


67 




020 


A 


73 


050 


P 


11 




020 


$ 





010 


= 


66 




020 


A 


44 


050 


P 


11 



ALLOW FOR MINUS SIGN 

INSERT SPACE 

JUMP IF PLUS 
INSERT MINUS SIGN 



CONVERT INTEGRAL PART 
JUMP IF NO FRACTIONAL PART 
INSERT DECIMAL POINT 
CONVERT FRACTIONAL PART 
JUMP TO PUT IN CR+EOM 



SCIENTIFIC NOTATION 
INSERT 5 SPACES 

JUMP IF NO MINUS SIGN 
INSERT MINUS 
INSERT SPACE 



CONVERT WHOLE NUMBER OF COEF 

JUMP IF NO FRACTIONAL PART 

INSERT DECIMAL PT 

CONVERT FRACTION OF COEF 

INSERT .10* 

JUMP IF SFX PLUS 
INSERT ( 

INSERT - 



D004E694 
D004E696 
D004E698 
D004E700 
D004E702 
D004E704 
D004E706 
D004E708 
D004E710 
D004E712 
D004E713 
D004E714 
D004E715 
D004E716 
D004E718 
D004E720 
D004E722 
D004E724 
D004E726 
D004E728 
D004E730 
D004E999 



020 

* 67 021 

020 

020 
020 
020 

* 68 020 

020 
020 
020 
050 

* 72 020 

* 90 

* 91 

* 92+ 

* 93 

* 94 

* 95 020 

* 96 007 

100 
/ 



$ 

* 94 
$ 

1 

* 94 
A112 
$ 
A 42 




15 
12 

9 
31 
17 



A122 



010 
050 
010 

002 
050 
010 
050 
010 
001 
024 
010 
010 



10 



H 



66 
20 
= 36 
2 

* 68 
P 11 
= 66 
P 11 
= 66 

* 72 
K 32 
X 10 
- 78 
A 17 
A122 

27 



♦0011*407*6200 
,0160,340*7016 
,0000,000,0000, 
D 4 010,7000/ 



CONVERT SFX 

JUMP IF SFX PLUS 
INSERT ) 

INSERT CR+EOM 

JUMP IF NO INTERRUPT 
FAKE AN »RI« 

IN H9 AND JUMP 
TRANSMIT (PASS LINK ON TO =80 



LOCAL STORAGE 

LOCAL STORAGE 

.10* 

FIVE SPACES 



D005E000+ S MO OCTAL IN AND OUT 

D005E010 020 $ 010 = 1 

D005E020 020 P 1 124 A 14 

D005E030 025 A 14 001 E 6 

D005E040 020 $ 010 = 1 

D005E050 020 P 1 124 A 61 

D005E060 025 A 61 001 E 6 

D005E065 020 $ 010 = 1 

D005E070 120 050 P 18 

D005E080 * 020 P 1 124 K 35 

D005E090 025 K 35 001 * 4 

D005E100 020 P 1 072 3 

D005E110 020 P 18 077 3 

D005E120 050 P 18 010 $ 1 

D005E130 020 $ 010 = 1 

D005E140 010 * 

D005E150 * 4 020 $ 010 = 3 

D005E160 001 * 10 010 $ 1 

D005E170 120 050 P 19 

D005E180 * 1 020 P 1 124 K 35 

D005E190 025 K 35 001 * 2 

D005E200 020 P 1 072 3 

D005E210 020' P 19 077 3 

D005E220 050 P 19 010 $ 1 

D005E230 020 $ 010 = 2 

D005E240 010 * 1 

D005E250 * 2 020 P 18 056 * 3 

D005E260 * 3 020 P 19 050 

D005E270 014 X 12 
D005E280 * 10 020 P 18 056 * 11 

D005E290 * 11 020 

D005E300 050 P 19 010 $ 1 

D005E310 020 A 61 050 S 1 

D005E320 050 S 3 020 A 14 

D005E330 050 S 2 020 S 

D005E340 024 K 43 050 P 12 

D005E360 020 P 18 071 68 

D005E370 020 $ 010 * 50 

D005E380 4 

D005E390 020 $ 010 = 62 

D005E400 020 $ 010 = 62 

D005E410 020 P 19 071 38 

D005E420 020 $ 010 * 50 

D005E430 - 3 

D005E440 020 $ 010 = 62 

D005E450 020 $ 010 * 50 

D005E460 4 

D005E470 020 $ 010 = 62 

D005E480 020 S 010 * 50 

D005E490 3 

D005E500 020 $ 010 = 62 

D005E510 020 P 19 071 68 

D005E520 020 $ 010 * 50 

D005E530 4 



D005E540 






020 


A 42 


050 


P 11 


D005E550 






020 


$ 


010 


= 66 


D005E560 






010 


X 14 






D005E570 


* 


50 


024 


K 2 


052 


* 51 


D005E580 






024 


K 2 


052 


* 59 


D005E590 


* 


51 


021 





050 


P 27 


D005E600 


* 


53 


120 





075 


3 


D005E610 






025 


K 1 


002 


* 52 


D005E620 






020 


A 48 


014 


* 52 


D005E630 


* 


52 


024 


K 1 


050 


P 11 


D005E640 






020 


$ 


010 


= 66 


D005E650 






020 


P 27 


024 


K 1 


D005E660 






050 


P 27 


001 


♦ 53 


D005E670 


* 


59 


010 


— — 




♦ 


D005E999 




/ 




D005 


OlOt 


>7000/ 



D006E000+ 

D006E005 

D006E015 

D006E020 

D006E025 

D006E030 

D006E035 

D006E040 

D006E045 

D006E050 

D006E052 

D006E055 

D006E060 

D006E062 

D006E065 

D006E066 

D006E067 

D006E070 

D006E075 

D006E080 

D006E085 

D006E090 

D006E095 

D006E100 

D006E105 

D006E110 

D006E115 

D006E120 

D006E125 

D006E130 

D006E135 

D006E145 

D006E160 

D006E165 

D006E170 

D006E175 

D006E180 

D006E185 

D006E190 

D006E195 

D006E200 

D006E205 

D006E210 

D006E215 

D006E220 

D006E225 

D006E230 

D006E235 

D006E240 

D006E245 

D006E250 

D006E255 

D006E260 

D006E265 



$ 
* 



* 1 

* 10 

* 11 

* 20 



* 21 



* 22 

* 23 



* 30 



* 31 

* 32 

* 33 



* 34 



* 40 



* 41 

* 42 



020 Q 
020 Q 
022 Q 
020 Q 
020 - 
001 * 
020 A 
020 $ 
020 P 
020 Q 
020 $ 
010 * 
020 S 
020 Q 
020 $ 
020 Q 
025 I 
020 Q 
025 I 
020 $ 
020 P 
050 P 
020 Q 
020 - 
020 $ 
020 
052 
124 
056 Q 
020 $ 
020 $ 
010 * 
020 Q 
050 P 
020 $ 
020 - 
020 P 
024 K 
056 * 
001 * 

050 P 
050 H 
050 H 
020 K 
020 $ 
020 $ 
020 $ 
010 * 
020 Q 
050 P 
020 $ 
020 - 
020 P 



K 



6 

7 
7 
7 

40 

42 



15 

6 







7 



7 

7 

7 

7 



18 

18 

7 



23 

23 

5 

7 





11 

7 

21 



19 
1 

34 


19 

28 

30 
4 




32 
7 

21 


18 



001 
002 
001 
052 
071 
010 
050 
010 
002 
001 
010 

050 
050 
010 
124 
002 
124 
050 
010 
024 
001 
052 
050 
010 
024 
020 
025 
002 
010 
010 

125 
052 
010 
050 
056 
010 
020 
010 
124 
020 
010 
050 
010 
010 
010 

125 
052 
010 
050 
056 



M 

X 

* 
* 
* 

* 

s 

# 
X 





5 

20 

10 

1 

5 

30 

1 

17 

80 

14 

78 



P 12 
H 30 
= 17 
5 
22 
5 
18 
62 
1 
21 
23 
11 
66 
2 
7 
1 
23 
17 
60 



4 
31 
17 
19 
33 

1 



$ 1 
K 42 

S 1 
H 29 

* 50 

* 60 
= 78 

K 4 

* 41 
= 17 
P 18 

* 43 



EXTENSION OF G6 FOR VALUES 
QUIT WHEN Q6-Q7 EMPTY 
JUMP IF EXPRESSION + VALUE 
JUMP IF -1 FOR BLANK 



JUMP IF MATRIX ELSE VECTOR 

UNDERLINE CALLS FOR LINE FEED 

POP Q7 

JUMP IF INTERRUPT 

EXIT VIA X14 IF LAST ITEM 

TRANSMIT 



MOVE VALUE 
POP Q7 

JUMP IF EXPRESSION IS 8 OR MORE CHARA 



INSERT SPACE 

LOOP UNTIL ALL LEADING SPACES INSERTE 

INSERT CHARACTER 



LOOP UNTIL EXPRESSION COPIED TO S 

POP 07 

CONVERT. VALUE ETC 

VECTOR 

POP 07 



JUMP WHEN DONE 



CONVERT LABEL 

CONVERT VALUE 

TRANSMIT 

LOOP 

MATRIX 

POP Q7 



D006E270 


* 43 








020 


— 





D006E275 




001 


* 





050 


P 


18 


D006E280 




050 


P 


19 


010 


$ 


1 


D006E285 


* 44 


020 


P 


19 


052 


# 


45 


D006E290 




024 


K 


2 


052 


# 


46 


D006E295 


* 45 


020 


— 





001 


* 


42 


D006E300 




050 


P 


19 


124 


K 


42 


D006E305 




050 


H 


29 


020 


P 


18 


D006E310 




124 


K 


42 


050 


H 


28 


D006E315 


* 46 


020 


— 


— 


050 


H 


30 


D006E320 




020 


$ 





010 


# 


50 


D006E325 




020 


$ 





010 


* 


60 


D006E330 




020 


$ 





010 


= 


78 


D006E335 




010 


* 


44 








D006E340 


* 50 


024 


K 


2 


052 


* 


59 


D006E342 




020 


S 





050 


P 


12 


D006E345 




020 


H 


28 


025 


* 


92 


D006E350 




006 


* 


51 


021 


I 


4 


D006E355 


* 51 


010 


* 


52 


021 


I 


3 


D006E360 


* 52 


050 


* 


90 


020 


H 


29 


D006E365 




001 


# 


55 


025 


* 


92 


D006E370 




006 


* 


53 


020 


I 


2 


D006E375 


* 53 


010 


* 


54 


020 


I 


3 


D006E380 


* 54 


024 


* 


90 


050 


* 


90 


D006E385 


* 55 


020 


* 


90 


002 


* 


56 


D006E390 




024 


I 


1 


050 


* 


90 


D006E395 




020 


$ 





010 


= 


62 


D006E400 




010 


* 


55 








D006E405 


* 56 


020 


P 


21 


050 


P 


11 


D006E410 




020 


$ 





010 


= 


66 


D006E415 




020 


A 


73 


050 


P 


11 


D006E420 




020 


$ 





010 


= 


66 


D006E425 




020 


H 


28 


070 




12 


D006E430 




050 


H 


20 


010 


$ 


1 


D006E435 




020 


$ 





010 


= 


36 


D006E440 








1 






2 


D006E445 




020 


H 


29 


001 


* 


57 


D006E450 




020 


A 


59 


050 


P 


11 


D006E455 




020 


$ 





010 


= 


66 


D006E460 




020 


H 


29 


070 




12 


D006E465 




050 


H 


20 


010 


$ 


1 


D006E470 




020 


$ 





010 


= 


36 


D006E475 








1 






2 


D006E480 


* 57 


020 


A112 


050 


P 


11 


D006E485 




020 


$ 





010 


= 


66 


D006E490 


* 59 


010 


— 











D006E495 


* 60 


024 


K 


2 


052 


P 


26 


D006E500 




020 


P 


15 


002 


# 


80 


D006E505 




020 


P 


12 


025 


* 


93 


D006E510 




001 


# 


61 


010 


$ 


1 


D006E515 




020 


A 


42 


050 


P 


11 


D006E520 




020 


$ 





010 


= 


66 


D006E522 




020 


H 


30 


050 


P 


30 


D006E525 




020 


$ 





010 


= 


78 


D006E527 




020 


P 


30 


050 


H 


30 



JUMP WHEN DONE 



JUMP IF DONE WITH ROW 



CONVERT LABEL 
CONVERT VALUE 
TRANSMIT 

CONVERT LABEL SUBROUTINE 

COMPUTE AND INSERT INITIAL SPACES 



JUMP WHEN ALL SPACES ARE IN 

INSERT LETTER 

INSERT LEFT PARENTHESIS 

CONVERT FIRST INDEX 

JUMP IF NO SECOND INDEX 
INSERT COMMA 

CONVERT SECOND INDEX 

INSERT RIGHT PARENTHESIS 

CONVERT VALUE ETC 
JUMP IF INTERRUPT 

JUMP IF VALUE WILL FIT ON SAME LINE 
INSERT CR+EOM 

SAVE VALUE AGAINST POSSIBLE CHOKE 

TRANSMIT FIRST PART 

RESTORE VALUE AFTER POSSIBLE CHOKE 



D006E530 
D006E535 
D006E540 
D006E545 
D006E550 
D006E555 
D006E556 
D006E560 
D006E565 
D006E570 
D006E575 
D006E580 
D006E585 
D006E590 
D006E592 
D006E594 
D006E596 
D006E600 
D006E605 
D006E610 
D006E615 
D006E620 
D006E625 
D006E630 
D006E635 
D006E640 
D006E642 
D006E644 
D006E646 
D006E650 
D006E655 
D006E660 
D006E665 
D006E670 
D006E675 
D006E680 
D006E685 
D006E690 
D006E695 
D006E700 
D006E705 
D006E710 
D006E715 
D006E720 
D006E725 
D006E730 
D006E735 
D006E740 
D006E745 
D006E750 
D006E775 
D006E780 
D006E785 
D006E790 
D006E795 



* 61 



* 65 



* 62 



* 63 



* 64 



* 70 



* 71 



* 74 



* 72 



* 73 



* 75 
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S 





050 


P 


12 


020 


s 





010 


= 


64 




* 


94 




# 


94 


020 


$ 





010 


= 


62 


020 


A 


43 


050 


P 


11 


020 


$ 





010 


= 


66 


020 


$ 





010 


= 


62 


020 


* 


96 


050 


* 


90 


020 


H 


30 


124 


K 


11 


071 




1 


072 




32 


050 


* 


91 


024 


I 


3 


001 


* 


62 


025 


I 


9 


002 


* 


62 


020 


* 


91 


002 


* 


65 


021 


I 


1 


050 


T 





020 


* 


90 


025 


T 





050 


* 


90 


071 




21 


052 


* 


90 


020 


P 


12 


024 


K 


3 


025 


* 


90 


002 


# 


63 


020 


$ 





010 


= 


62 


010 


* 


62 








020 


H 


30 


124 


K 


12 


025 


K 


12 


001 


* 


64 


020 


A 


44 


014 


# 


64 


020 


A 


14 


050 


P 


11 


020 


$ 





010 


= 


66 


020 


■«• 


91 


024 


I 


3 


001 


* 


75 


025 


I 


9 


002 


* 


75 


010 


$ 


1 


020 


* 


91 


001 


* 


73 


024 


I 


1 


056 


* 


71 


020 


J 


14 


025 


* 


91 


056 


* 


70 


020 


I 


8 


025 


* 


91 


056 


* 


72 


020 


H 


30 


124 


K 


13 


071 




40 


044 


— 





050 


* 


91 


060 


H 


20 


020 


$ 




1 

91 


010 


~ 


36 


023 


# 


002 


* 


78 


020 


A 


27 


050 


P 


11 


020 


$ 





010 


= 


66 


020 


* 


91 


050 


H 


20 


020 


$ 




4 

78 


010 


=: 


36 


010 


* 








020 


I 


8 


025 


* 


91 


056 


# 


72 


020 


H 


30 


124 


K 


13 


050 


# 


91 


010 


* 


74 








020 


H 


30 


124 


K 


13 


071 




40 


044 


N 


8 


050 


# 


90 


060 


H 


.20 


020 


$ 



1 


010 


= 


36 

1 



INSERT SPACE 
INSERT •=• 

INSERT SPACE 

SET POTENTIAL SIGN POSITION 



JUMP IF SCI NOTATION REQUIRED 
JUMP IF SCI NOTATION REQUIRED 

ADJUST SIGN POSITION FOR SCALE FACTOR 



JUMP IF SIGN POSITION IS NEXT 

INSERT SPACE 

LOOP 

JUMP IF PLUS 
INSERT MINUS 
INSERT SPACE 



JUMP IF SCI NOTATION REQUIRED 
JUMP IF SCI NOTATION REQUIRED 



CONVERT INTEGRAL PART 

JUMP IF NO FRACTIONAL PART 
INSERT DECIMAL POINT 



CONVERT FRACTIONAL PART 
JUMP TO CLOSE LINE 



CONVERT WHOLE NUMBER OF COEF 



D006E797 
D006E800 
D006E805 
D006E810 
D006E815 
D006E820 
D006E825 
D006E830 
D006E835 
D006F840 
D006E845 
D006E850 
D006E855 
D006E860 
D006E865 
D006E870 
D006E875 
D006E880 
D006E885 
D006E890 
D006E895 
D006E900 
D006E902 
D006E904 
D006E906 
D006E908 
D006E910 
D006E915 
D006E920 
D006E925 
D006E930 
D006E935 
D006E940 
D006E945 
D006E999 



023 
020 
020 
020 
020 

* 79 020 



020 
020 
020 
020 
020 
021 
020 

020 
020 
020 
020 
020 
010 
020 
020 
020 
050 



* 77 



* 78 



81 
80 



90 
91 
92 + 
93 
94 

95 

96 

/ 



* 90 
A 27 
$ 

* 90 
$ 

4 
$ 

* 95 

* 91 
A 73 
$ 
A 44 
$ 

* 91 
$ 

1 

* 91 
A112 
$ 
A 42 
$ 
P 26 



H 12 
H 9 



002 
050 
010 
050 
010 



010 = 
* 

006 * 
050 P 
010 = 
050 P 
010 = 
050 
010 

002 
050 
010 
050 
010 

010 
002 
024 
010 



* 79 
P 11 
= 66 
H 20 
= 36 

8 
64 
95 
77 
11 
= 66 
P 11 
= 66 
H 20 
= 36 
2 

* 78 
P 11 
= 66 
P 11 
= 66 



= 17 
* 81 
K 32 
X 10 



10 



27 

S 50 S 50 

007,0160, 340*7016 

007,0160,350,0000 

020,0011,407,6200 

S 17 S 17, 

D006 010,7000/ 



JUMP IF NO FRACTIONAL PART 
INSERT DECIMAL PT 



CONVERT FRACTION OF COEF 

INSERT .10* 

JUMP IF SFX PLUS 
INSERT ( 

INSERT - 

CONVERT SFX 

JUMP IF SFX PLUS 
INSERT ) 

INSERT CR+EOM 

EXIT VIA P26 

POP Q6-Q7 

JUMP IF Q6 HAS SOMETHING 

FAKF AN «RI • 

IN H9 AND JUMP 
LOCAL STORAGE 
LOCAL STORAGE 

EIGHT SPACE MSG 
.10* 
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D007E010 
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020 


5 





050 


P 


12 


D007E012 


# 


1 


020 


K 


4 


050 


H 


21 


D007E014 






050 


H 


22 


050 


H 


23 


D007E016 


* 


2 


020 


$ 





010 


* 


85 


D007E018 






002 


* 


10 


010 


* 


5 


D007E020 






020 


P 


12 


050 


H 


22 


D007E022 






020 


$ 





010 


* 


85 


D007E024 






002 


* 


12 


010 


# 


1 


D007E026 






020 


H 


22 


050 


H 


23 


D007E028 


# 


3 


020 


S 





010 


* 


85 


D007E030 






005 


* 


4 


010 


E 


30 


D007E032 


* 


4 


010 


* 


3 


020 


P 


12 


D007E034 






025 


H 


23 


025 


* 


97 


D007E036 






002 


* 


20 


010 


E 


15 


D007E038 


* 


5 


020 


P 


11 


002 


* 


2 


D007E040 


* 


6 


020 


Q 


6 


001 


X 


14 


D007E042 






010 


E 


8 








D007E050 


# 


10 


020 


P 


12 


050 


H 


21 


D007E052 


# 


11 


020 


S 





010 


* 


85 


D007E054 






002 


* 


11 


010 


* 


20 


D007E056 






020 


P 


12 


050 


H 


22 


D007E058 






020 


$ 





010 


■K- 


85 


D007E060 






002 


* 


12 


010 


* 


20 


D007E062 






010 


E 


30 








D007E064 


* 


12 


020 


$ 





010 


* 


85 


D007E066 






002 


# 


12 


010 


* 


20 


D007E068 






020 


P 


12 


050 


P 


30 


D007E070 






020 


$ 





010 


* 


85 


D007E072 






002 


E 


30 


010 


* 


17 


D007E074 






010 


E 


30 








D007E100 


* 


20 


020 


P 


12 


50 


P 


30 


D007E101 


* 


17 


020 


Q 


6 


001 


E 


24 


D007E102 






020 


Q 


7 


002 


# 


22 


D007E104 






022 


Q 


7 


002 


E 


25 


D007E106 






020 


H 


21 


002 


* 


19 


D007E108 






020 


H 


22 


010 


* 


19 


D007E112 


* 


18 


020 


A 


14 


050 


— 





D007E114 


* 


21 


020 


P 


12 


024 


K 


3 


D007E116 


* 


19 


050 


P 


12 


056 


* 


18 


D007E118 






025 


P 


30 


001 


* 


18 


D007E120 






010 


* 


56 








D007E122 


* 


22 


020 


H 


23 


002 


* 


60 


D007E124 






120 







050 


P 


18 


D007E126 






050 


P 


19 


020 


H 


21 


D007E128 






001 


* 


24 


020 


H 


22 


D007E130 






002 


* 


23 


020 


P 


30 


D007E132 


* 


23 


025 


H 


21 


050 


P 


18 


D007E134 






020 


H 


22 


001 


* 


25 


D007E136 


* 


24 


020 


P 


30 


025 


K 


3 


D007E138 






025 


H 


22 


050 


P 


19 


D007E140 


* 


25 


020 


Q 


7 


124 


K 


11 


D007E142 






071 




1 


072 




11 


D007E144 






050 


P 


27 


072 




21 



EXTENSION OF G6 FOR VALUES 
SET POINTER FOR FORM 
RESET POINTERS TO -1 



IN A FORM 



ADVANCE (OK EVEN AT RIGHT MARGIN) 

JUMP IF UNDERLINE. JUMP IF OTHER 

PERIOD — RECORD LOC'N OF POINT 

ADVANCE (PERIOD SO FAR) 

JUMP' IF UNDERLINE* LOOP IF OTHER 

PERIOD — RECORD SCI NOTATION BEGINNING 

ADVANCE 

JUMP IF OTHER* ELSE ERROR 

LOOP IF PERIOD 



JUMP IF 7 OR MORE P 
JUMP UNLESS END OF 
EXIT TO TRANSMIT IF 
ELSE ERROR 
RECORD WHOLE (UNDER 
ADVANCE 

LOOP IF UNDERLINE* 
RECORD LOON OF POI 
ADVANCE (AFTER THE 
JUMP IF UNDERLINE* 
ERROR IF ANOTHER PE 
ADVANCE 

LOOP IF UNDERLINE* 
SAVE POINTER IF PER 
ADVANCE TO CHECK NE 
ERROR IF UNDERLINE* 
ERROR IF PERIOD 
SAVE POINTER FOR EN 
ERROR IF NO ENTRY F 
JUMP IF NOT VACUOUS 
ERROR IF NOT SIMPLY 



ERIODS* ELSE ERROR 
FORM 
NO EXCESS VALUES 

LINE SO FAR) 

JUMP IF OTHER 

NT 

POINT) 

JUMP IF OTHER 

RIOD 

JUMP IF OTHER 
IOD 

XT CHARACTER 
JUMP IF OTHER 

D OF FIELD 
OR THE FIELD 

-1 VACUOUS FLAG 



LOOP TILL FIELD FILLED WITH SPACES 
JUMP TO POP Q7 AND CARRY ON 
JUMP IF SCIENTIFIC NOTATION 
CLEAR W*D TO ZERO 

JUMP IF NO WHOLE NUMBER 
JUMP IF THERE WAS A POINT 
SET W 
JUMP IF NO POINT 

SET D 



D007E146 

D007E148 

D007E150 

D007E152 

D007E154 

D007E156 

D007E158 

D007E160 

D007E162 

D007E164 

D007E166 

D007E168 

D007E170 

D007E171 

D007E172 

D007E173 

D007E174 

D007E176 

D007E178 

D007E180 

D007E182 

D007E186 

D007E192 

D007E194 

D007E196 

D007E198 

D007E200 

D007E202 

D007E204 

D007E206 

D007E208 

D007E210 

D007E212 

D007E214 

D007E216 

D007E218 

D007E220 

D007E222 

D007E224 

D007E226 

D007E228 

D007E230 

D007E232 

D007E234 

D007E236 

D007E238 

D007E240 

D007E242 

D007E244 

D007E245 

D007E246 

D007E247 

D007E248 

D007E249 

D007E250 



* 26 

* 27 

* 28 



* 34 



* 30 

* 31 

* 36 

* 39 

* 32 



* 33 

* 35 

* 37 



* 40 



* 41 



* 42 

* 43 

* 44 

* 45 



* 48 

* 47 



024 
020 
050 
025 
002 
025 
120 
052 
020 
024 
072 
060 
050 
001 
050 
002 
020 
001 
024 
020 
071 
020 
021 
001 
025 
001 
001 
020 
050 
020 
020 
025 
021 
020 
020 
020 
025 
120 
120 
024 
020 
001 
001 
024 
056 
004 
050 
020 
020 

023 
023 
020 
020 
020 



27 

7 



H 26 
P 27 



1 
95 


26 



H 26 

39 

H 26 

P 29 

* 34 
H 24 

* 36 





30 

3 

7 

9 

3 

27 

32 



H 24 
E 31 
* 50 
H 21 



12 



12 



H 25 
H 24 



44 



27 

98 





3 

98 

44 

42 

19 

43 



H 26 
P 29 



P 28 
$ 
3 
H 26 
P 19 
P 12 
A 14 
H 22 



050 
124 
020 
025 
120 
005 
024 
056 
072 
050 
044 
050 
023 
050 
020 
010 
025 
020 
50 
124 
006 
050 
025 
120 
024 
024 
050 
025 
014 
010 
024 
001 
002 
050 
010 
001 
005 
050 
024 
056 
025 
025 
120 
024 
120 
044 
060 
050 
010 

001 
002 
056 
050 
001 



27 

13 

98 

19 



1 

94 

27 

1 





P 28 
H 26 
P 27 
H 21 



50 
9 
27 
27 
12 
31 



H 24 
K 3 

P 18 
H 21 
H 25 
K. 3 

* 35 
= 62 

3 
33 
40 
11 
66 
50 
41 
29 
98 
45 
27 
19 


J 11 



P 28 
H 20 
= 36 

* 47 

* 47 

* 48 

* 54 



SET S (+ OR -) IN P27 



(NOTE MQ IS CLEAR FOR FOLLOWING) 

JUMP IF DIGITS TO BE ROUNDED 

JUMP IF LESS THAN 10 TO BE ROUNDED 



ROUND 

JUMP IF NONZERO AFTER ROUNDING 

JUMP IF WHOLE PART ELSE FOR FRACTION 

JUMP UNLESS ROUNDED TO EXTRA DIGIT 
INCREASE S BY ONE 

SET Z A/C SIGN OF NUMBER 

JUMP IF S NONNEGATIVE 

ERROR IF NUMBER WON'T FIT FIELD 
JUMP IF NO WHOLE PART TO FIELD 

INSERT SPACE 

LOOP UNTIL ALL SPACES ARE IN 
JUMP IF NUMBER NON NEGATIVE (Z=0) 

INSERT MINUS SIGN 
JUMP IF S NEGATIVE 
JUMP IF S LESS THAN 8 
SET FRACTION TO ZERO 

SET TO CONVERT S + KLIMIT 9) WHOLE DIG 

JUMP IF S EXCEEDS 8 



SPLIT OFF FRACTIONAL DIGITS 



CONVERT WHOLE NUMBER DIGITS 

JUMP IF NONZERO OUTPUT 
JUMP IF NO FRACTION FIELD 

REPLACE ZERO BY SPACE 
JUMP IF NO POINT 
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25 


010 
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* 


80 
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020 
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22 
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D007E258 
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P 


29 


002 


* 


54 


D007E260 






020 
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27 


024 


K 


3 


D007E262 
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* 


51 


020 


H 


22 


D007E264 






025 


P 


27 


050 


H 


25 


D007E266 






020 


$ 





010 


* 


80 


D007E268 


* 


51 


020 


P 


27 


002 


* 


58 


D007E270 






024 


P 


19 


025 


* 


98 


D007E271 






001 


* 


52 


120 







D007E272 


* 


52 


024 


* 


99 


014 


* 


57 


D007E273 


* 


58 


020 


* 


98 


025 


P 


27 


D007E274 






025 


P 


19 


002 


* 


57 


D007E275 






024 


P 


19 


014 


* 


57 


D007E276 
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57 


020 


P 


19 


056 


* 


53 


D007E278 






020 
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29 


050 


H 


20 


D007E280 






020 


$ 





010 


= 


36 


D007E282 


* 


53 






3 




— 


•— — 


D007E284 


* 


54 


020 


P 


30 


050 


H 


25 


D007E286 






020 


$ 





010 


* 


80 


D007E288 


* 


55 


020 


$ 





010 


= 


17 


D007E290 


# 


56 


020 


$ 





010 


= 


17 


D007E292 






020 


P 


30 


056 


# 


59 


D007E294 


* 


59 


050 


P 


12 


020 


: — 





D007E296 






001 


* 


6 


010 


* 


1 


D007E300 


* 


60 


050 


P 


12 


056 


# 


64 


D007E302 






023 


Q 


7 


001 


* 


62 


D007E304 






020 


P 


12 


056 


* 


61 


D007E306 


* 


61 


020 


A 


14 


050 


— - 


-—— 


D007E308 






020 


A 


48 


050 


P 


11 


D007E310 






020 


$ 





010 


= 


66 


D007E312 






020 


$ 





010 


= 


17 


D007E314 






010 


* 


21 








D007E316 


* 


62 


020 


Q 


7 


124 


K 


12 


D007E318 






025 


K 


12 


002 


* 


64 


D007E320 


* 


63 


020 


A 


14 


014 


# 


64 


D007E322 


* 


64 


020 


A 


44 


050 


— 





D007E323 






020 


P 


30 


025 


P 


12 


D007E324 






025 


* 


96 


025 


# 


98 


D007E326 






001 


* 


65 


120 







D007E328 


# 


65 


024 


* 


98 


056 


* 


70 


D007E330 






050 


T 





010 


$ 


1 


D007E332 






020 


J 


14 


025 


T 





D007E334 






056 


* 


67 


052 


* 


69 


D007E336 


* 


66 


020 





7 


124 


K 


13 


D007E338 


* 


67 


071 




1 


024 


— 





D007E340 






070 




1 


025 


N 


9 


D007E342 






001 


* 


68 


020 


Q 


7 


D007E344 






024 


K 


14 


124 


K 


11 


D007E346 






024 


N 


8 


050 


Q 


7 


D007E348 






071 




1 


025 


# 


93 


D007E350 






001 


* 


66 


010 


E 


31 


D007E352 


* 


68 


024 


N 


9 


071 




40 


D007E354 






044 


N 


8 


050 


P 


29 



FILL WITH ZEROS TO POINT 
SET POINTER AT DECIMAL POINT 
JUMP IF ZERO FRACTION 



FILL LEAD ZEROS OF FRACTION FIELD 
JUMP IF S NONNEGATIVE 

JUMP IF D+S EXCEEDS 8, ELSE SET 9 DIG 
SET D+S+l DIGITS 

JUMP IF 8-S EXCEEDS D 
SET 8-S DIGITS 
SET D DIGITS 

CONVERT FRACTION DIGITS 



FILL TRAILING ZEROS 
POP Q 7 
POP Q 7 

SET P12 

JUMP IF END OF FORM. ELSE LOOP BACK 

SCIENTIFIC NOTATION 

JUMP IF NONZERO 

ZERO TREATMENT 

OUTPUT SPACE 

OUTPUT ZERO 

POP Q7 

JUMP TO FILL WITH SPACES ETC 



JUMP UNLESS ROUNDS TO EXTRA DIGIT 



ERROR IF OVERFLOW ON EXPONENT 



D007E356 






060 


H 


20 


010 


$ 


1 


D007E358 






020 


$ 





010 


= 


36 


D007E360 










3 






1 


D007E362 






020 


P 


12 


024 


K 


3 


D007E364 






050 


P 


12 


010 


$ 


1 


D007E366 






120 







004 


P 


29 


D007E368 


* 


69 


044 


— 


-— 


060 


H 


20 


D007E370 






020 


$ 





010 


= 


36 


D007E372 


# 


70 






3 




— 


-— — 


D007E374 






020 


P 


30 


025 


K 


43 


D007E376 






050 


H 


25 


010 


$ 


1 


D007E378 






020 


$ 





010 


* 


80 


D007E380 






020 





7 


071 




1 


D007E382 






072 




32 


050 


H 


20 


D007E384 






002 


* 


71 


010 


* 


72 


D007E386 


* 


71 


020 


A 


14 


014 


# 


73 


D007E388 


* 


72 


021 


H 


20 


050 


H 


20 


D007E390 


* 


73 


020 


A 


44 


050 


P 


11 


D007E391 






020 


$ 





010 


= 


66 


D007E392 






020 


$ 





010 


= 


36 


D007E394 










3 






2 


D007E396 






010 


* 


55 








D007E400 


* 


80 


024 


K 


2 


052 


* 


82 


D007E402 


* 


81 


020 


P 


12 


024 


K 


3 


D007E404 






025 


H 


25 


004 


A 


48 


D007E406 


# 


82 


002 


— 





024 


H 


25 


D007E408 






054 


P 


12 


052 


* 


83 


D007E410 


* 


83 


060 


— 





010 


* 


81 


D007E450 


* 


85 


024 


K 


2 


052 


* 


89 


D007E452 






024 


K 


2 


052 


# 


87 


D007E454 






020 


P 


12 


024 


K 


3 


D007E456 






054 


P 


12 


052 


* 


86 


D007E458 


* 


86 


020 


— 





050 


P 


11 


D007E460 






124 


A 


27 


025 


A 


27 


D007E462 


# 


87 


002 


— 





020 


P 


11 


D007E464 






124 


A108 


025 


A108 


D007E466 


* 


89 


010 


— 


— — 








D007E500 


* 


93+ 






100 




7 


D007E502 


* 


94 




N 


10 




N 


10 


D007E504 


* 


95 






10 






10 


D007E506 


* 


96 






6 






6 


D007E508 


* 


97 






7 






7 


D007E510 


* 


98 






8 






8 


D007E512 


* 


99 






9 






9, 


D007E999 




/ 




D 


7 


010 


,7000/ 



OUTPUT FIRST DIGIT 



SKIP OVER DECIMAL POINT 



OUTPUT FRACTION 



FILL TRAILING ZEROS OF DIGITS FIELD 



OUTPUT SIGN OF EXPONENT PART 
OUTPUT EXPONENT 

JUMP TO POP 07 TWICE AND LOOP 
SUBROUTINE TO FILL ZEROS UP TO 
LEAVES P12 AT (T2)-l 



(T2) 



LOCAL SUBROUTINE TO ADVANCE ONE IN FO 
EXIT TO $1 WITH ACC + IF UNDERLINE 
EXIT TO $1 WITH ACC - IF OTHER 
EXIT TO $2 IF PERIOD 



OVERFLOW TEST VALUE 



D008E000+ 


$ 








M 





D008E010 


00a 


H 


19 


010 


s 


1 


D008E015 


063 


T 





002 


* 


30 


D008E020 


020 


W 


9 


065 


T 





D008E030 


023 


T 





002 


* 


10 


D008E040 


020 


W 


7 


065 


T 





D008E050 


023 


T 





002 


* 


5 


D008E060 


020 


W 


3 


065 


T 





D008E070 


023 


T 





002 


* 


15 


D008E080 


020 


W 


13 


065 


T 





D008E090 


023 


T 





002 


* 


20 


D008E100 


020 


W 


11 


065 


T 





D008E110 


023 


T 





002 


* 


40 


D008E112 


020 


W 


1 


065 


T 





D008E114 


023 


T 





002 


* 


50 


D008E120 


130 


$ 





130 


$ 





D008E130 


* 5 020 


$ 





010 


= 


39 


D008E140 


020 


S 





010 


= 


21 


D008E150 


020 


P 


1 


124 


K 


19 


D008E160 


025 


K 


19 


001 


E 


6 


D008E170 


020 


$ 





010 


= 


44 


D008E180 


020 


Q 


3 


050 


P 


20 


D008E190 


020 


$ 





010 


= 


13 


D008E200 


020 


$ 





010 


= 


50 


D008E210 


002 


» 


8 


010 


E 


17 


D008E220 


* 8 020 


H 


23 


050 


P 


19 


D008E230 


* 6 020 


P 


19 


052 


* 


7 


D008E240 


* 7 020 


— 





001 


X 


5 


D008E250 


050 


P 


19 


056 


P 


3 


D008E260 


020 


$ 





014 


= 


7 


D008E280 


020 


P 


15 


002 


X 


13 


D008E290 


020 


$ 





010 


= 


78 


D008E300 


010 


# 


6 








DO08E31O 


* 10 020 


$ 





010 


= 


39 


D008E320 


020 


$ 





010 


= 


21 


D008E330 


020 


P 


1 


124 


K 


19 


D008E340 


025 


K 


19 


01 


E 


6 


D008E350 


020 


$ 





010 


= 


45 


D008E360 


020 


Q 


3 


050 


P 


21 


D008E370 


020 


$ 





010 


= 


13 


D008E380 


020 


$ 





010 


= 


51 


D008E390 


002 


# 


11 


010 


E 


16 


D008E400 


* 11 020 


H 


26 


056 


P 


3 


D008E410 


020 


$ 





014 


= 


7 


D008E430 


010 


X 


14 








D008E440 


* 15 020 


$ 





010 


= 


39 


D008E450 


020 


s 





010 


= 


21 


D008E460 


020 


p 


1 


124 


K 


19 


D008E470 


025 


K 


19 


001 


E 


6 


D008E480 


020 


S 





010 


= 


46 


D008E490 


020 


Q 


3 


050 


P 


22 


D008E500 


020 


$ 





010 


s 


13 


D008E510 


020 


$ 





010 


= 


52 


D008E520 


002 


* 


11 


010 


E 


19 



EXTENSION OF G6 

JUMP IF H19=0=OUOTES 

JUMP IF 'STEP' 

JUMP IF 'PART' 

JUMP IF 'FORM' 

JUMP IF 'SIZE' 

JUMP IF 'USERS' 

JUMP IF •TIME* 

ELSE MACHINE ERROR 

VERIFY SPACE AND ADVANCE TO NONSPACE 

EVALUATE PART NUMBER 

VERIFY TERMINAL 

VALIDATE PART NUMBER 
SET PART CONTEXT 
POP Q3 
FIND PART 
ERROR IF CAN'T 



TO ADVANCE WHEN DONE 

UNPACK TO S 

JUMP IF INTERRUPT 

TRANSMIT 

VERIFY SPACE AND ADVANCE TO NONSPACE 
EVALUATE STEP NUMBER 
VERIFY TERMINAL 

VALIDATE STEP NUMBER 
SET STEP CONTEXT 
POP Q3 
FIND STEP 
ERROR IF CAN'T 

UNPACK TO S 

EXIT VIA X14 

VERIFY SPACE AND ADVANCE 

EVALUATE FORM NUMBER 

VERIFY TERMINAL 

VALIDATE FORM NUMBER 
SET FORM CONTEXT 
POP Q3 
FIND FORM 
ERROR IF CAN'T 



D008E530 


* 


20 


020 


$ 





010 


= 


3 


D008E540 






020 


P 


1 


124 


K 


19 


D008E550 






025 


K 


19 


001 


E 


6 


D008E560 






120 







050 


T 





D008E570 






020 


* 


22 


056 


* 


21 


D008E580 


* 


21 








020 


— 





D008E590 






001 


* 


23 


056 


* 


21 


D008E600 






020 


T 





024 


I 


1 


D008E610 






050 


T 





014 


* 


21 


D008E620 


* 


22 










Q 





D008E630 


* 


23 


020 


T 





050 


H 


20 


D008E640 






020 


S 





050 


P 


12 


D008E650 






020 


$ 





010 


= 


36 


D008E660 










2 






3 


D008E670 






020 


A 


42 


050 


S 


4 


D008E680 






010 


X 


14 








D008E740 


* 


30 


020 


s 





050 


P 


12 


D008E750 


# 


31 


020 


$ 





010 


= 


1 


D008E760 






001 


E 


6 


124 


A 


66 


D008E770 






025 


A 


66 


002 


■K- 


32 


D008E780 


* 


33 


020 


P 


12 


024 


K 


3 


D008E785 






050 


P 


12 


056 


* 


35 


D008E790 


# 


35 


020 


P 


1 


050 


— 


— - 


D008E795 






020 


* 


31 


010 


= 


1 


D008E800 


* 


32 


020 


P 


2 


050 


* 


90 


D008E810 






020 


$ 





010 


= 


2 


D008E820 






020 


* 


90 


050 


P 


2 


D008E830 






020 


P 


1 


124 


K 


19 


D008E840 






025 


K 


19 


002 


# 


34 


D008E850 






020 


A 


66 


050 


P 


1 


D008E860 






010 


♦ 


33 








D008E870 


* 


34 


020 


A 


42 


50 


P 


11 


D008E880 






020 


$ 





010 


= 


66 


D008E890 






010 


X 


14 








D008E900 


* 


40 


020 


$ 





010 


= 


3 


D008E905 






020 


P 


1 


124 


K 


19 


D008E910 






025 


K 


19 


001 


E 


6 


D008E915 






120 







050 


S 


1 


D008E920 






020 


U 


2 


010 


* 


42 


D008E925 


* 


41 


020 


# 


90 


024 


K 


3 


D008E930 


* 


42 


050 


* 


90 


052 


* 


43 


D008E935 






025 


U 


3 


002 


* 


44 


D008E940 


* 


43 


020 


— 


— 


001 


* 


41 


D008E945 






020 


s 


1 


024 


I 


1 


D008E950 






050 


s 


1 


010 


* 


41 


D008E955 


* 


44 


020 


A 


42 


050 


S 


2 


D008E960 






010 


X 


14 








D008E964 


* 


50 


020 


$ 





010 


= 


3 


D008E965 






020 


p 


1 


124 


K 


19 


D008E966 






025 


K 


19 


001 


E 


6 


D008E967 






020 


S 





050 


P 


12 


D008E970 






020 


$ 





010 


« 


61 


D008E975 






020 


A 


42 


050 


S 


5 


D008E980 






010 


X 


14 








D008E990 


* 


90 















ELIMINATE SPACES 

VERIFY TERMINAL 
COMPUTE SIZE 



CONVERT SIZE 



EXIT VIA X14 

SET OUTPUT FOR QUOTED MESSAGE 

ADVANCE 

JUMP IF QUOTES 

INSERT CHARACTER IN S 



ADVANCE AND LOOP 
SAVE P2 

ADVANCE TO NONSPACE 
RESTORE P2 

JUMP IF TERMINAL 



INSERT CR+EOM 

EXIT VIA X14 
ELIMINATE SPACES 

VERIFY TERMINAL 
INITIALIZE COUNT 
INITIALIZE 



JUMP AT END OF TABLE 

COUNT ONE ACTIVE USER 

SET CR+EOM 
EXIT VIA X14 
ELIMINATE SPACES 

VERIFY TERMINAL 

CONVERT TIME 

EXIT VIA X14 
WORKING STORAGE 



D008E999 / D008 010»7000/ 



E E000+ 

E E001 

I E002 

E E003 

E E004 

E E005 

E E006 

E E007 

E E008 

E E009 

E EOIO 

E EOll 

E E012 

E E013 

E E014 

E E015 

E E016 

E E017 

E E018 

E E019 

E E020 

E E021 

E E022 

E E023 

E E024 

E E025 

E E026 

E E027 

.£ E028 

E E029 

E E030 

E E031 

E E040 



E 020 E 010 * 



E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
* 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 





020 
020 
020 
020 
020 
020 
020 
020 
020 
020 
020 
020 
020 
020 
020 
020 
020 
020 
020 
020 
020 
020 
020 
020 
020 
020 
020 
020 

020 
020 
050 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

30 

31 
18 



010 
010 
010 
010 
010 
010 
010 
010 
010 
010 
010 
010 
010 
010 
010 
010 
010 
010 
010 
010 
010 
010 
010 
010 
010 
010 
010 
010 

010 
010 
010 



# 
* 
* 
# 

* 
* 
* 
* 
* 
* 
* 
* 

* 

* 

* 
* 
* 

* 
* 
* 
* 
* 
# 

* 
# 
D 


































0* 



OUT OF SPACE 

OVERFLOW 

UNDEFINED 

DIVISION BY ZERO 

ILLEGAL INDEX 

NUMERAL HAS MORE THAN NINE SIGNIF DIGI 

EH 

•G0» BUT NO TASK 

TOO MANY VALUES FOR 

ILLEGAL INDIRECT 

DIRECT 

STEP LABEL 

FORM NUMBER 

STEP NUMBER 

ARG FOR SQRT 
THAN 



FORM 



ILLEGAL 
ILLEGAL 
ILLEGAL 
ILLEGAL 
ILLEGAL 



FIELD HAS FEWER 
NO SUCH STEP 



7 PERIODS 



NO SUCH 
ILLEGAL 
NO SUCH 
ILLEGAL 
NEGATIVE 
ILLEGAL 
ZERO TO 
TOO FEW 



PART 
PART 
FORM 
ARG FOR 
TO NON 



NUMBER 



LOG 

INTEGER POWER 
ARG FOR SIN OR COS 
NEGATIVE POWER 
VALUES FOR FORM 



INDIVIDUAL VALUES ARE REQUIRED FOR FOF 
CAN'T FIND PART FOR ITERATION 
CAN'T FIND STEP FOR ITERATION 
ILLEGAL SET OF VALUES FOR ITERATION 



FIELDS RUN TOGETHER 
CAN'T EXPRESS VALUE 



IN GIVEN FORM 



E — 
E — 
E — 
E — 
E — 
E — 
E — 
E — 
E— 
E— 
E — 
E — 
E — 
E— 
E~ 
E — 
E — 
E — 
E — 
E — 
E— 
E— 
E — 
E~ 
E — 
E — 
E — 
E— 
E — 
E— 
E — 
E— 
E— 
E — 
E— 
E— 
E — 
E — 
E — 
E — 
E— 
E — 
E— 
E — 
E— 
E— 
E — 
E-- 
E— 
E— 
E- 
E- 
E- 
E— 



-E100 
-E101 
-E102 
-E103 
-E104 
■-E105 
-E106 
-E107 
-E108 
-E109 
-E110 

■-E111 
-E112 
-E113 
-E114 
-E115 
-E116 
-E117 
-E118 
-E119 
-E120 
-E121 
-E122 
-E123 
-E124 
-E125 
-E126 
-E127 
-E128 
-E129 
-E130 
-E131 
•-E500 
-E501 
-E502 
-E503 
-E504 
-E505 
-E510 

-E511 
-E512 
-E513 
■-E514 
-E520 
-E521 
-E522 
-E523 
-E530 
-E531 
-E532 
— E533 
— E534 
— E540 
— E541 



* 
* 

* 
* 

* 
* 
* 
* 
* 
* 
* 

* 

* 

* 

* 
* 
* 
# 
* 
* 
* 
* 

* 
* 
* 





1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

50 



* 51 



* 52 



* 53 



# 

* 
* 
* 
* 
* 
# 

* 
* 
* 

* 
* 

* 

* 
* 
* 

* 
* 

* 
* 



* 54 



054 
012 
012 
024 
031 
015 
054 
012 
023 
021 
100 
007 
022 
022 
100 
054 
012 
012 
014 
024 
054 
007 



50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

,4161*121 
.0161*102 
,4161*443 
,4210*561 
,0470,421 
,4524,000 
,4160,601 
♦4160*422 
♦0650*522 
,4461,541 
,0000*000 
,0311,440 
,4240,521 
,4250,501 
,0000,000 
,4160,601 
♦4160,420 
,4511,140 
,4650,623 
,4331,250 
,4450,501 
,0650*422 



12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 



51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
»2425 
»3051 
,1446 
,2416 
,1425 
,0000 
,0465 
,2416 
,4426 
,5452 
,0000 
,7064 

♦ 3031 
,5452 
,0000 
,0465 
,7071 

♦ 7024 
,1046 
,0000 
,2467 
,1464 



•I NEED MORE STORAGE SPACE.* 



• I HAVE AN OVERFLOW. • 



• IS UNDEFINED. • 



• I HAVE A ZERO DIVISOR.' 



•INDEX VALUE MUST BE INTEGER AND 
0-INDEX-99.' 



E — 
E— 
E-- 
E— 
E — 
E — 
E — 
E — 
E— 
E— 
E — 
E — 
E — 
E— 
E — 
E — 
E— 
E— 

E~ 
E— 
E — 
E — 
E— 
E— 
E— 
E — 
E— 
E-- 
E — 
E~ 
E— 
E — 

E— 
E— 
E— 
E— 
E — 
E — 
E— 
E — 
E — 
E— 
E~ 
E — 
E— 
E — 
E — 
E— 
E— 
E — 
E — 
E— 
E— 
E— 

E — 



-E542 
-E543 
-E544 
-E545 
-E546 
-E547 
-E548 
-E550 
-E551 
-E552 
-E553 
-E554 
-E555 
-E556 
-E557 
-E558 
-E559 
-E560 
-E570 
-E571 
-E572 
-E573 
-E574 
-E575 
-E576 
-E577 
-E578 
-E580 
-E581 
-E582 
-E583 
-E584 
-E585 
-E586 
-E587 
-E590 
-E591 
-E592 
•-E593 
-E594 
-E595 
-E596 
-E597 
-E600 
-E601 
-E602 
-E603 
-E604 
-E605 
-E606 
-E610 
-E611 
-E612 
-E613 
-E614 



* 55 



56 
57 



* 58 



* 59 



* 60 



* 61 



012 
031 
014 
012 
012 
022 
004 
063 
012 
014 
022 
007 
007 
014 
022 
013 
025 
052 
074 
010 
031 
012 
031 
007 
014 
034 
100 
054 
012 
007 
007 
012 
024 
007 
015 
052 
007 
007 
007 
010 
022 
Oil 
025 
052 
007 
007 
007 
010 
014 
021 
063 
012 
014 
012 
Oil 



♦4l61i 


103^ 


♦4160, 


441 ♦ 


♦4451) 


461 ♦ 


.4510) 


341 ♦ 


♦0161* 


404^ 


.4240) 


523^ 


.4110* 


662 ♦ 


♦4430, 


521^ 


♦4161) 


»061f 


,4630* 


342 ♦ 


♦0220, 


522^ 


♦0631) 


140f 


♦0620, 


• 621 ♦ 


♦4260. 


► 621^ 


♦4630, 


»341^ 


♦4311, 


► 463^ 


♦2000, 


► 000^ 


♦4303, 


► 422^ 


♦0461, 


► 500^ 


♦4650, 


► 522^ 


♦4161, 


► 462^ 


♦0161, 


»101» 


♦4460, 


► 341^ 


♦0211, 


123^ 


♦0311, 


»121» 


♦0251, 


.461 ♦ 


♦oooo. 


► 000^ 


♦4160, 


► 601 ♦ 


♦4161- 


► 462 ♦ 


♦0440, 


► 422^ 


♦0650, 


► 422^ 


♦4620, 


► 341^ 


♦4161, 


► 461 ♦ 


♦0261- 


.142^ 


♦4524, 


► 000^ 


♦0461, 


► 124 t 


♦0270. 


► 623^ 


♦0630< 


► 601 ♦ 


♦ 0231 


.142^ 


♦4450. 


► 500^ 


♦4240. 


.622^ 


♦4631, 


► 063^ 


♦2000< 


.000^ 


♦0461« 


>124 > 


♦ 0270 


>623^ 


♦0630, 


► 601 ♦ 


♦0231- 


► 142^ 


♦ 4450 


► 500^ 


♦4510. 


► 521^ 


♦ 4700 


»662 > 


♦ 4430 


.521^ 


♦ 4161 


.061 ♦ 


♦ 4630 


»343^ 


♦ 4470 


.342^ 


♦ 0251 


»063^ 



♦ 2062 

♦ 2416 

♦ 2427 

♦ 0445 

♦ 2431 

♦ 3505 

♦ 5200 

♦ 0462 

♦ 4444 

♦ 2464 

♦ 4462 

♦ 7011 

♦ 3445 

♦ 1421 

♦ 2031 

♦ 1033 

♦ 0000 

♦ 5200 

♦ 7030 

♦ 2501 

♦ 3043 

♦ 2416 

♦ 2046 

♦ 4063 

♦ 3416 

♦ 5452 

♦ 0000 

♦ 0465 

♦ 3046 

♦ 2470 

♦ 1464 

♦ 3046 

♦ 4025 

♦ 4444 

♦ 0000 

♦ 0463 

♦ 2425 

♦ 4462 

♦ 2044 

♦ 7031 

♦ 4425 

♦ 4033 

♦ 0000 

♦ 0463 

♦ 2425 

♦ 4462 

♦ 2044 

♦ 7024 

♦ 1463 

♦ 5200 

♦ 0462 

♦ 4444 

♦ 1063 

♦ 1421 

♦ 1016 



•PLEASE LIMIT 
DIGITS.* 



NUMBERS TO 9 SIGNIFICAN 



'EH.' 

•YOU HAVEN'T TOLD ME TO DO 
ANYTHING YET. • 



• I HAVE TOO MANY VALUES FOR THE FORM. 



•DON'T GIVE THIS COMMAND INDIRECTLY. 



'DON'T GIVE THIS COMMAND DIRECTLY.' 



'PLEASE LIMIT STEP LABELS TO 9 DIGITS 



E— 


-E615 


031, 


,4460) 


340) 


4416 


E— 


-E616 


012) 


.0310, 


• 561) 


4463 


E— 


-E617 


031) 


»0331i 


,250) 


0000 


E — 


-E620 


* 62 053i 


.0461) 


222) 


2016 


E — 


-E621 


022) 


4641) 


,101 ) 


.1025 


E— 


-E622 


024) 


,4161) 


103) 


.2062 


E— 


-E623 


031 ) 


.4160. 


► 441) 


,2416 


E — 


-E624 


014) 


►4451- 


► 461 


,2427 


E — 


-E625 


012) 


►4510) 


► 341) 


,0445 


E — 


-E626 


012) 


.0161) 


► 404, 


,3426 


E— 


-E627 


023i 


.0511) 


► 104) 


,3401 


E— 


-E628 


030) 


.1740) 


,221 


,5452 


E— 


-E629 


100) 


,0000) 


► 000 


,0000 


E — 


-E630 


* 63 071 ) 


,0630) 


► 522) 


3416 


E — 


-E631 


022) 


•4641) 


,101) 


► 1025 


E-- 


-E632 


024) 


.4161) 


,103) 


.2062 


E— 


-E633 


031) 


»4161< 


► 441) 


► 0463 


E — 


-E634 


014) 


,4620) 


► 543) 


► 4016 


E— 


-E635 


000) 


5051) 


► 443) 


► 1425 


E — 


-E636 


023) 


►5070) 


► 023) 


.0174 


E— 


-E637 


004) 


.4331) 


250) 


.0000 


E— 


-E640 


* 64 054) 


,4160) 


,601) 


0465 


E — 


-E641 


012) 


,4160) 


420) 


7045 


E — 


-E642 


012) 


,4270i 


423, 


1431 


E — 


-E643 


032) 


,4250) 


,341) 


.0451 


E— 


-E644 


013, 


,4641) 


101 1 


2445 


E— 


-E645 


031) 


,4160) 


► 542) 


.3051 


E— 


-E646 


007. 


,0621) 


► 202) 


.4463 


E — 


-E647 


015) 


,4524) 


,000) 


,0000 


E— 


-E650 


* 65 053) 


03l0i 


► 522) 


1424 


E— 


-E651 


007) 


,0240) 


521) 


,3031 


E— 


-E652 


022) 


4311) 


.461, 


,4446 


E— 


-E653 


022) 


,4160) 


.601) 


,0462 


E— 


-E654 


007i 


,0260) 


523) 


3025 


E— 


-E655 


024) 


4161) 


.461, 


4021 


E— 


-E656 


022) 


,4160) 


.160- 


,7047 


E— 


-E657 


012< 


,4510) 


► 622, 


,3024 


E— 


-E658 


031) 


,0331) 


► 250. 


,0000 


E — 


-E660 


* 66 054) 


,4160 


► 461) 


,0445 


E— 


-E661 


040) 


,4630. 


► 341, 


► 3031 


E— 


-E662 


022) 


,4240) 


,343, 


,1430 


E — 


-E663 


012) 


,4161) 


.221, 


,2450 


E — 


-E664 


032) 


,0311. 


.221, 


,2424 


E— 


-E665 


007) 


,0621) 


► 461, 


,2447 


E— 


-E666 


015« 


,4524) 


► 000, 


,0000 


E— 


-E670 


* 67 054i 


,4160) 


► 461) 


,0445 


E— 


-E671 


040i 


,4630) 


► 341) 


,3031 


E— 


-E672 


022) 


,4240- 


► 343) 


,1430 


E— 


-E673 


012) 


,4161) 


.221) 


► 2450 


E— 


-E674 


032< 


,0311) 


,221, 


,2424 


E — 


-E675 


007 


,0470 


.422 


,4463 


E — 


-E676 


015 


,4524 


,000 


,0000 


E— 


-E680 


* 68 063 


,4211 


,223 


,1416 


E — 


-E681 


022 


,4641 


,101 


,1025 


E— 


-E682 


024 


,4161 


,103 


,2062 



•FORM NUMBER MUST 
0-FORM-10*9.« 



BE INTEGER AND 



•STEP NUMBER MUST SATISFY 1-STEP-10*9 



•I HAVE A NEGATIVE ARGUMENT FOR SORT. 



•FIELD DEFINITION HAS FEWER THAN 
7 PERIODS.' 



•I CAN»T FIND THE REQUIRED STEP.' 



•I CAN'T FIND THE REQUIRED PART.' 



•PART NUMBER MUST 
0-PART-10*9.« 



BE INTEGER AND 



E — 


-E683 


031i 


.4160, 


,441, 


2416 


E — 


-E684 


014i 


,4451, 


461, 


2427 


E — 


-E685 


012) 


4510, 


,341, 


0445 


E — 


-E686 


012) 


0161) 


,404, 


3447 


E — 


-E687 


Old 


4511, 


464, 


3401 


E — 


-E688 


030i 


1740, 


,221, 


5452 


E — 


-E689 


100, 


0000, 


,000, 


0000 


E — 


-E690 


* 69 054i 


4160, 


461, 


0445 


E — 


-E691 


040 i 


4630, 


,341, 


3031 


E — 


-E692 


022, 


4240, 


343, 


1430 


E — 


-E693 


012, 


4161, 


221, 


2450 


E — 


-E694 


032, 


0311, 


221« 


2424 


E — 


-E695 


007, 


0261, 


142, 


4444 


E — 


-E696 


015, 


4524) 


000, 


oooo 


E — 


-E700 


* 70 054, 


4160, 


,601, 


0465 


E — 


-E701 


012, 


4160, 


422, 


2416 


E— 


-E702 


010, 


.4510, 


563, 


2044 


E — 


-E703 


012, 


.4451, 


,460, 


7105 


E — 


-E704 


007, 


0600, 


341, 


3046 


E — 


-E705 


024, 


4161, 


,062, 


,3027 


E — 


-E706 


015, 


.4524, 


,000, 


,0000 


E — 


-E710 


* 71 054, 


4160) 


,601 , 


0465 


E— 


-E711 


012, 


4160, 


420, 


7045 


E — 


-E712 


012, 


.4270, 


423, 


1431 


E— 


-E713 


032i 


4250) 


341 » 


1021 


E— 


-E714 


031, 


0250, 


,343, 


1446 


E — 


-E715 


007, 


0210, 


341, 


3051 


E — 


-E716 


010, 


4231) 


461, 


4446 


E — 


-E717 


022, 


4211) 


,060, 


,7047 


E — 


-E718 


023, 


.0660, 


,522, 


4433 


E — 


-E719 


025, 


2000, 


,000, 


,0000 


E— 


-E720 


* 72 063, 


.4430, 


,521, 


0462 


E— 


-E721 


012, 


,4161, 


,041, 


2425 


E— 


-E722 


023, 


,4163, 


,003, 


3540 


E— 


-E723 


043, 


4011, 


,403, 


0016 


E— 


-E724 


013, 


,0461, 


,220, 


7062 


E— 


-E725 


014, 


,4452, 


,223, 


3560 


E— 


-E726 


007, 


,0461, 


220, 


7023 


E — 


-E727 


023, 


,0622) 


• 223, 


,3560 


E — 


-E728 


015, 


,4524, 


,000, 


0000 


E— 


-E730 


* 73 054, 


,4160) 


,601, 


,0465 


E — 


-E731 


012, 


,4161' 


,621, 


2451 


E— 


-E732 


023, 


,0161) 


,462, 


3016 


E— 


-E733 


010, 


,4161, 


,121, 


,2427 


E— 


-E734 


010 


>4630 


.623, 


,2425 


E— 


-E735 


007, 


,0471. 


,143, 


,3025 


E— 


-E736 


024, 


,4331) 


»250< 


,0000 


E— 


-E740 


* 74 054, 


.4160 


.601, 


,0465 


E— 


-E741 


012, 


,4161, 


,462, 


3046 


E— 


-E742 


007, 


,0260. 


,523, 


3016 


E — 


-E743 


032 


,4211 


.063, 


,2025 


E— 


-E744 


031 


► 0160 


.542< 


.3051 


E— 


-E745 


007 


.0630 


.601 


.2416 


E — 


-E746 


013 


»0461 


.222 


.2033 


E— 


-E747 


025 


.2000 


.000. 


,0000 



•I CAN'T FIND THE REQUIRED FORM.* 



• I HAVE AN ARGUMENT LTEO FOR LOG, • 



• I HAVE A NEGATIVE 
POWER. 1 



BASE TO A FRACTION 



•PLEASE KEEP 1X1 
OR COS(X). • 



LT 100 FOR SIN(X) 



•I HAVE ZERO TO A NEGATIVE POWER.' 



•I HAVE TOO FEW VALUES FOR THE FORM.' 



E— 


-E750 


* 75 


054 


»4161 


• 121 


,2425 


E— 


-E751 




012 


.0160 


,622 


,2424 


E— 


-E752 




014 


»4650 


.621 


,2064 


E— 


-E753 




010 


»4430 


,343< 


,2421 


E— 


-E754 




021 


,4640 


,523, 


,1016 


E— 


-E755 




013 


»0461< 


,220- 


,7021 


E— 


-E756 




007 


»0261) 


,142 


,4444 


E — 


-E757 




015 


,4524 


,000 


,0000 


E — 


-E760 


* 76 


054 


»4160< 


,461, 


,0445 


E — 


-E761 




040 


.4630 


,341) 


,3031 


E — 


-E762 




022 


>4240< 


,343) 


,1430 


E — 


-E763 




012 


,4161 


,161) 


,0451 


E— 


-E764 




031 


,4160 


,542, 


,3051 


E — 


-E765 




007 


,0311) 


,461, 


,2451 


E — 


-E766 




010 


,4630, 


,622, 


,3045 


E— 


-E767 




015 


,4524, 


,000, 


,0000 


E— 


-E770 


* 77 


054i 


,4160, 


,461, 


,0445 


E — 


-E771 




040) 


•4630, 


• 341, 


,3031 


E — 


-E772 




022i 


,4240, 


>343i 


1430 


E — 


-E773 




012 


,4161, 


,443, 


1425 


E — 


-E774 




023 


,4160, 


,542, 


,3051 


E — 


-E775 




007 


,0311- 


,461, 


,2451 


E — 


-E776 




010 


,4630 


,622, 


,3045 


E— 


-E777 




015 


,4524' 


,000, 


,0000 


E — 


-E780 


* 78 


054 


,4431, 


,061, 


,2427 


E — 


-E781 




010) 


,4430) 


,343, 


1025 


E — 


-E782 




031 


,4161, 


,141, 


,3016 


E— 


-E783 




032 


,4211) 


,063, 


,2025 


E — 


-E78A 




031 


,0160 


,542, 


,3051 


E — 


-E785 




007) 


,0311, 


,461, 


,2451 


E — 


-E786 




010 


,4630, 


,622, 


,3045 


E— 


-E787 




015 


,4524, 


,000, 


,0000 


E — 


-E790 


* 79 










E — 


-E800 


* 80 


074, 


,0461, 


502, 


,4416 


E— 


-E801 




013, 


,0310) 


,522, 


,1424 


E — 


-E802 




031 


,0161, 


,223, 


,2045 


E— 


-E803 




007 


,0631) 


,141, 


,3425 


E— 


-E804 




031) 


,4300, 


,522, 


4416 


E — 


-E805 




014, 


,4450, 


,343i 


1430 


E— 


-E806 




012) 


,4160, 


,542, 


3051 


E — 


-E807 




022) 


,0331) 


250, 


0000 


E— 


-E810 


* 81 


054 


,4160, 


,461, 


0445 


E — 


-E811 




040. 


,4630, 


,341, 


,2467 


E — 


-E812 




023) 


,4510, 


>523i 


1062 


E — 


-E813 




007) 


,0650, 


422, 


,1464 


E— 


-E814 




012) 


,4160, 


,622, 


2416 


E— 


-E815 




034, 


,0461, 


502, 


4416 


E — 


-E816 




013- 


,0461« 


222, 


2033 


E~ 


-E817 




025, 


,2000, 


,000, 


0000 


E — 


-E820 


* 82 











•I NEED INDIVIDUAL VALUES FOR A FORM. 



•I CANtT FIND THE PART FOR ITERATION. 



»I CAN'T FIND THE STEP FOR ITERATION. 



'ILLEGAL SET OF VALUES FOR ITERATION. 



•YOUR FIELDS RUN TOGETHER IN THE FORM 



•I CAN'T EXPRESS VALUE IN YOUR FORM.' 



FOOOEOOO+ 


F 


010 


$ 











F000E010 




024 


K 


2 


052 


* 


9 


r OOOE015 




020 


Q 


6 


002 


E 


6 


FOOOE020 




023 


Q 


3 


002 


* 


9 


FOOOE030 




020 


$ 





010 


= 


11 


F000E040 




023 


P 


5 


001 


E 


14 


FOOOE050 




020 


P 


4 


071 




8 


F000E060 




050 


T 


1 


060 


T 


2 


F000E070 




071 




32 


072 




1 


F000E080 




050 


P 


4 


020 


T 


1 


F000E090 




004 


P 


6 


002 


* 


1 


FOOOEIOO 




032 


N 


1 


060 


T 





FOOOE110 




020 


N 


9 


010 


# 


2 


F000E120 


* 1 


060 


T 





020 


* 


90 


F000E130 


* 2 


050 


P 


6 


004 


T 





FOOOE140 




032 


N 


8 


044 


P 


6 


FOOOE150 




020 


P 


6 


065 


T 


1 


FOOOE160 




020 


P 


6 


073 




1 


F000E170 




025 


T 


1 


072 




1 


F000E180 




050 


P 


6 


020 


T 


1 


F000E190 




025 


N 


4 


006 


* 


2 


FOOOE200 




020 


P 


6 


004 


T 





FOOOE210 




037 


N 


8 


044 


P 


6 


FOOOE220 




020 


P 


6 


064 


T 


2 


F000E230 




002 


* 


3 


020 


P 


6 


F000E240 




024 


K 


1 


050 


P 


6 


FOOOE250 


* 3 


020 


$ 





010 


= 


30 


F000E260 


* 9 


010 


— 











-"000E270 


* 90+ 


316227800 




39 



Y = SQRT(X) 

SET EXIT 

MALFORMED IF AUX NOT EMPTY 

TRANSFER IF X=0 

UNPACK X INTO P4» P5» P6 

TRANSFER IF X NEGATIVE 

COMPUTE 1/2 SFX 

STORE IN P4 

TEST FOR ODD OR EVEN 
IF ODD 10. P6 TO TO 
AND 10E9 TO P6 AS Y(0) 

SFX EVEN* X TO TO 

AND SORT(IO) + EPSILON TO P6 

T1=Y(N)-(10E8.X/Y(N) )=DELTA 

P6=Y(N+l)=(2Y-DELTA)/2 

IF DELTA GREATER THAN OR EQUAL TO 
10E4. ITERATE 

IF (Y(N+1) + (Y(N+1)-A.10E8)/Y(N+1) ) ) 
IS LESS THAN ZERO. ADD ONE TO 
Y(N+1) 

PACK RESULT 

EXIT 

SORT (10) + EPSILON 



F001EOOO+ 


F 1 


010 


$ 











F001E010 




024 


K 


2 


052 


* 


9 


r 001E015 




020 





6 


002 


E 


6 


F001E020 




023 


Q 


3 


002 


E 


20 


F001E030 




020 


$ 





010 


= 


11 


F001E040 




023 


P 


5 


ooi- 


E 


20 


FOO1E050 




020 


P 


4 


072 




31 


F001E060 




050 


P 


4 


020 


J 


11 


F001E061 




024 


K002 


010 


* 


21 


F001E070 


* 21 


052 


* 


6 


120 






F001E080 


* 1 


050 


T 


1 


020 


P 


6 


F001E090 




025 


* 


91 


002 


* 


2 


FOOIEIOO 




020 


P 


6 


073 




1 


F0O1E110 




050 


P 


6 


020 


T 


1 


FOO1E120 




024 


I 


1 


010 


# 


1 


F001E130 


* 2 


020 


P 


6 


024 


* 


92 


F001E140 




050 


T 


2 


020 


P 


6 


F001E150 




025 


* 


92 


040 


T 


2 


F001E160 




060 


T 


2 


030 


T 


2 


F001E170 




050 


T 


3 


120 






F0O1E180 




050 


T 





020 


* 


95 


F001E190 


* 3 


050 


T 


4 


020 


I 


1 


F001E200 




040 


T 


4 


020 


T 





F001E210 




064 


T 





004 


T 





F001E220 




030 


T 


3 


050 


T 





F001E230 




020 


T 


4 


025 


I 


4 


F001E240 




005 


* 


4 


024 


I 


2 


F001E250 


* 4 


010 


* 


3 


004 


T 





F001E260 




030 


T 


2 


024 


T 


2 


F001E270 




072 




1 


050 


T 





FOO1E280 




020 


I 


3 


025 


T 


1 


F001E290 




050 


T 


1 


004 


# 


93 


F001E300 




032 


T 


1 


060 


T 


5 


F001E310 




024 


T 





004 


* 


94 


F0O1E320 




036 


P 


4 


077 




2 


F001E330 




050 


T 





050 


T 


5 


F001E340 




001 


* 


12 


060 


T 


1 


F001E350 


* 5 


023 


T 





006 


* 


14 


F001E360 


* 18 


020 


I 


1 


050 


T 


3 


F001E370 


* 6 


021 


— 





024 


T 





F0O1E380 




005 


* 


7 


020 


# 


6 


F0O1E390 




024 


K 


2 


052 


* 


6 


F001E400 




020 


T 


3 


024 


I 


1 


F001E410 


* 7 


014 


* 


18 


020 


T 


3 


F001E420 




025 


I 


1 


050 


P 


4 


F001E430 




020 


* 


97 


025 


T 


3 


F001E440 




056 


* 


8 


056 


* 


10 


F001E450 


* 8 


004 


T 


1 


030 


— 


-— 


F001E460 


* 10 


004 


T 





036 


— 





F001E470 




060 


P006 


025 


N009 


F001E471 




001 


* 


22 


020 


N008 


F001E472 




050 


P006 


020 


P004 


F001E473 




024 


1001 


010 


* 


11 


C 001E474 


* 22 


020 


P004 


010 


* 


11 



Y=LOG(X) BASE E 

SET EXIT 

MALFORMED IF AUX NOT EMPTY 

X=0 IS AN ERROR 

UNPACK 

X NEGATIVE IS AN ERROR 

SFX AS AN INTEGER 

INITIALIZE ADDRESS 



SET Q=0 

IF COEF(X) LESS THAN LOWER BOUNDi 

2 COEF(X) REPLACES IT AND 

0+1 REPLACES Q 

COMPUTE Z FOR SERIES AS EQUAL TO 

(C0EF(X)-(10*8) (2*3) / 

(C0EF(XJ+(10*8) (2*3) 

Z IN T2» Z*2 IN T3 

COMPUTE l/2.LOG(X)=Z+l/3(Z*3)+ 

l/5(Z*5)+...+l/13(Z*13) 

T4=DELTA=13 

T0=LOG(X)=0» INITIALLY 

T0=L0G(X)+(1/DELTA) 

TO=(LOG(X)+(1/DELTA) ).Z*2 

TRANSFER IF DELTA WAS 3 

DELTA=DELTA-2 

(Z.LOG(X))+Z 

T0=LOG(X)/4 



T5=(3-Q).LOG(2)/4 
L0G(X)=4.(EXP(X) .LOG(10)+T5) 
INTEGER IN ACCUMULATOR AND TO* T5 
FRACTION IN MQ AND Tl 
TRANSFER IF LOG IS NEGATIVE 

NORMALIZE 

IF TO IS GREATER THAN 10*I» THEN 
SET I=I+1» ITERATE 



IF TO IS LESS THAN 10*1. THEN 
P4=EXP(Y)=I-1 AND THE MAGNITUDE 
/FY=(T0+(2*(-39) ).T1).10*(9-I) 



TEST FINAL ROUND 
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F001E490 
F001E500 
r 001E510 
F001E520 
F001E530 
F001E540 
F001E550 
F001E560 
F001E570 
F001E580 
F001E590 
F001E600 
F001E610 
F001E620 
F001E630 
F001E640 
F001E650 
F001E660 
F001E670 
F001E680 
F001E690 
F001E700 
F001E710 
F001E720 
F001E730 
F001E740 
F001E750 
F001E770 



* 11 



* 
* 



* 
* 
* 

* 
* 
* 
* 



9 
12 



20 
13 
14 



* 15 



* 16 



* 17 



19 

90+ 

91 + 

92+ 

93+. 

94+. 

95+ 

97 



73 31 050 P 4 
20 T 5 124 K 4 
70 9 050 P 5 
20 $ 010 = 30 

10 

61 T 1 006 * 13 
25 K 4 050 T 1 
22 T 025 I 1 
50 T 010 * 5 
50 T 1 022 T 
10 * 20 023 T 1 
02 * 19 004 T 1 
20 I 1 050 T 3 
32 N 1 025 I 1 
02 * 16 020 T 3 
24 I 1 014 * 15 

20 T 3 025 I 1 
24 J 11 056 * 17 

04 T 1 032 

32 N 9 050 P 6 

21 T 3 010 * 11 
50 Q 3 010 * 9 

316227800 39 

565685425 39 

800000000 39 

17328679514 00 

57564627325 00 

13 39 

N 9 N 9» 



P4=SFY 

SET SIGN OF LOG 

PACK RESULT 
EXIT 

GET ABSOLUTE VALUE OF NEGATIVE LOG 



LOG IS LESS THAN ONE» TEST FOR 
LOG=ZERO 



SQRT(10)+EPSILON 

(2E3) (10E8) (SQRT(2)/2) 

(2E3) (10E8) 

LOG<2)/4 

LOG(10)/4 
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F0O2E020 
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F002E040 
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F002E060 
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F002E120 

F002E130 

F002E140 

F002E150 

F002E160 

F002E170 

F002E180 

F002E190 

F002E200 

F002E210 

F002E220 

F002E230 

F002E240 

F002E250 

F002E260 

F002E270 

F002E280 

F002E290 

F002E300 

F002E310 

F002E320 

F002E330 

F002E340 

F002E350 

F002E360 

F002E370 

F002E380 

F002E390 

F002E400 

F002E410 

F002E420 

F002E430 

F002E440 

F002E450 

F002E460 

F002E470 

F002E480 

F002E490 

F002E500 

C 002E510 



F 2 010 $ 
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020 Q 

023 Q 
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* 1 020 $ 

020 P 
060 T 
072 
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025 I 
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* 13 020 J 

056 * 
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93 
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11 

4 
2 
1 

39 
1 
1 
1 
1 
1 
1 
1 
1 

10 
6 

11 
2 

10 
1 
9 

11 

15 



052 
002 
001 
050 

010 
040 
020 
050 
024 
022 
010 
056 
050 
044 
070 
014 
001 
002 
014 
005 
025 
020 
024 
004 
050 
032 
060 
044 
023 
021 
021 
020 
020 
020 
044 
024 
020 
050 
006 
030 
004 
010 
004 
077 
004 
002 
020 
002 
020 
001 
064 
056 



* 9 
E 6 

* 1 
Q 3 



11 
9 
4 
1 
9 
1 
1 
4 
4 

2 
5 
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1 
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* 92 

T 1 
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21 
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12 
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1 
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3 

13 
6 

13 
6 

14 
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19 



Y = E*X = EXP(X) 

SET EXIT 

MALFORMED IF AUX NOT EMPTY 

IF X=0» SET Y=l AND EXIT 



UNPACK NON-ZERO X 

NEW COEF(X) IS COEF(X) / 10*9 

SFX SHIFTED TO 2*-39 POSITION 

STORE IN Tl 

IF, SFX IS LESS THAN -9, SET Y=l 

ADJUST SFX BY ONE 

SFX FOR RESULT 

COEF(X) /4 FOR SERIES 

IF SFX IS 3 OR MORE* CHECK SIGN 

OF COEF(X) 

OVERFLOW FOR POSITIVE NO. 

SET Y=0 FOR NEGATIVE NO. 

IF SFX=2» COEF(X) MUST BE LESS 

THAN LOG(IO) TIMES (10*8) + 1 

IF GREATER, TEST SIGN OF COEF 

(COEF(X)) (LOG(E)) (LESS THAN ONE) 

IN TO 

TO TIMES 10*(SFX PLUS 1) 

INTEGER PART TO SFX FOR RESULT 

FRACTIONAL PART /4 TO XBAR 

XBAR FOR SERIES IN TO, USE 12 TERMS 

SET DIVISOR FOR SERIES 
SET SERIES SUM = 1/2 

COMPUTE 1/2 (E*XBAR) = Z 



(Z*4) (10*10) (16) 



E*X 



NORMALIZE E*X 

RESULT LESS THAN 10*12 

AND GREATER THAN 10*8 



F002E520 
F002E530 
F002E540 
F002E550 
F002E560 
F002E570 
F002E580 
F002E590 
F002E600 
F002E605 
F002E610 
F002E620 
F002E630 
F002E650 
F002E660 
F002E680 



020 P 

19 064 P 
072 

15 072 
060 P 
001 * 
050 P 
024 I 

14 020 P 
073 
120 

17 020 S 
9 010 - 

92+ 23 

93+. 4342 

95 + 



4 010 $ 1 

4 020 

1 024 P 6 

3 9 044 

6 025 N 9 

14 020 N 8 
6 020 P 4 
1 014 * 14 
4 025 I 2 

31 050 P 4 

050 P 5 

010 = 30 

0258510 39 
9448190 00 
12 39* 



SCALE E*X AND ROUND 



TEST FINAL ROUND 



ADJUST SFX BY 2 

CLEAR SIGN 

PACK RESULT 

EXIT 

LOG(IO)* BASE E» TIMES 10*8 PLUS 1 

LOG(E) ♦ BASE 10 
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SIN(X) — SET FLAG IN MQ»-1 

SET EXIT 

MALFORMED IF AUX NOT EMPTY 

STORE FLAG IN TO 

UNPACK 

SHIFT SFX TO 2*(-39) POSITION 

FOR SINE SET RESULT = Q3 IF SFX 

IS -5 OR LESS* SHIFT P5 TO SIGN BIT 



TRANSFER IF SFX IS NEGATIVE 

NO. OUT OF RANGE IF SFX IS 2 OR MORE 

LOCATION (10*(SFX+2)) 

X=X.(10*(SFX+10) ) 

COMPUTE X/2PI 

X=REMAINDER IF X LESS THAN PI» 

OTHERWISE X=X-PI 

CHANGE SIGN 

X/PI IN MQ 

IF SFX LESS THAN -11* SET X=0 

LOCATION <10*(SFX+11) ) 

X={ (X/10*9) .10*(11+SFX) ) /PI. 10*10 

X= 1/2 - X FOR COS 

TRANSFER TO SINE OR COS 

FOR SINE* X = 1/2 - ABSOLUTE VALUE 

OF Tl (1/2-X) 

-X*2 

-4(X*2) 

INITIALIZE SERIES FOR 1/4 SINE 



TEST FOR OVERFLOW (RESULT=1) 
MULTIPLY RESULT AND SAVE BOTH PARTS 
FOR NORMALIZATION 



TEST FOR RESULT = 

PRESET INSTRUCTION FOR NORMALIZATION 



NORMALIZE RESULT AND 
ADJUST SCALE FACTOR 
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F003E510 
F003E520 
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F003E540 
F003E542 
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F003E546 
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* 92+ 31415926536 

* 93+ 11 

* 95 000*0000*003 

* 96 177*7777*416 

000*0025*016 
177*6632*264 
002*4315*361 
153*2504*143 
062*2077*325 
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* 99 020 P 6 025 
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T 1 




P 4 
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N 9 


TEST FOR ROUNDING UP TO 10*9 


N 8 




P 4 




P 4 




= 30 


PACK RESULT 




EXIT 


N 8 


RESULT IS ONE 


* 9 


COMBINE WITH SIGN AND EXIT 


39 


2 PI . 10*10 


39 


PI. 10*10 


39 


ELEVEN 


♦ 5173 


COEFFICIENTS A13 »A11 * . . . *A1 


,5664 


TAKEN FROM ILLIAC SINE ROUTINE 


♦ 6553 




,6777 




♦ 4634 




»1673 




♦ 0420 


Al 


P 6 


TEST WORD FOR END OF SERIES 


* 96 




N 8* 


INITIALIZER FOR *11 



T5 



F004E000+ F 4- 004 K 014 F 3» COS(X) — SET FLAG IN MQ=0. 
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IP(X) 

MALFORMED IF AUX NOT EMPTY 

UNPACK (Q3) 

ZERO RESULT FOR ZERO ARGUMENT 

ZERO RESULT IF NEGATIVE SFX 



RESULT = ARGUMENT IF SFX BIG AS 8. 



CHOP FRACTIONAL PART 



PACK RESULT INTO Q3 



F006E000+ F 6 010 $ FPU) 

F006E010 024 K 2 052 * 9 

F006E015 020 Q 6 002 E 6 MALFORMED IF AUX NOT EMPTY 

F006E020 020 $ 010 = 12 PUSH OPERANDS 

F006E030 020 $ 010 F 5 IP(X) 

F006E040 020 $ 010 = 32 X-IP ( X) =FP( X ) 

F006E050 * 9 010 » 
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XP(X) 

MALFORMED IF AUX NOT EMPTY 
UNPACK (Q3) 



PACK RESULT INTO Q3 
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MALFORMED 
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IF AUX NOT EMPTY 
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3 




F009E050 


* 


9 


010 — 


• **« 




» 





IF AUX NOT EMPTY 



F010E000+ 

F010E010 

FO10E020 

FO10EO3O 

F010E040 

F010E050 

F010E055 

F010E060 

F010E070 

F010E080 

F010E090 

FOIOEIOO 

F010E110 

F010E120 

F010E130 

F010E140 

F010E145 

F010E150 

F010E160 

F010E170 

F010E180 

F010E190 

F010E200 

F010E210 

FO10E220 

F010E230 

F010E240 

F010E245 

F010E265 

F010E270 

FO10E275 

F010E280 

F010E285 

F010E290 

F010E295 

F010E300 

F010E305 

F010E310 

FO10E31.5 

F010E320 

F010E325 

F010E330 

F010E335 

F010E340 

F010E345 

F010E350 

F010E355 

FO10E360 

F010E365 

F010E370 

F010E375 

F010E380 

F010E385 

F010E390 



F 10 010 $ 

024 K 
120 
020 Q 
050 * 
125 K 
020 Q 
020 Q 
050 * 
125 K 
020 $ 
020 Q 
023 * 
023 * 
020 * 

* 3 020 * 

075 
065 T 

* 7 005 * 

* 5 010 * 

002 * 
004 * 
050 * 

* 6 020 * 

020 $ 
020 * 
020 $ 

023 
020 $ 
020 P 
050 P 
006 * 

* 8 010 * 

025 I 
056 * 
040 N 

* 10 050 P 

060 T 
002 * 
004 * 

* 11 020 * 

* 12 050 * 

024 T 
032 T 
024 K 
020 T 
044 T 
032 T 

020 I 

* 13 020 * 

021 T 
040 T 
064 P 
030 P 





2 052 * 
050 * 

3 124 K 

82 020 Q 
12 050 * 

6 001 E 

7 124 K 
84 020 Q 
12 050 * 

010 = 
6 002 

83 002 
81 001 
91 010 
83 004 



1 

5 
1 
6 



2 
2 



050 
076 



010 $ 

023 T 

020 

021 

050 
81 020 
81 060 
83 050 Q 
010 = 
81 050 Q 
010 = 

3 002 * 

010 = 

4 072 

4 024 * 

8 120 

1 021 

1 024 

10 020 

9 120 
6 044 

2 025 

11 020 
94 010 
93 004 
85 061 



P 
J 
P 



21 050 

072 

1 060 

050 

1 050 
98 050 

2 050 

3 020 
6 004 
6 050 



9 
80 
12 

3 
81 

6 
12 

7 
83 
17 

6 

1 

3 

1 
81 

1 


92 


80 
83 
83 

3 
12 

3 
34 

1 
11 
31 
97 

4 

11 
6 



96 
92 
12 
95 



1 
1 
1 


1 

2 
3 
2 
6 
1 
6 



ARG(X»Y) 



SET FLAG=0 



X IN Q3» 



Y IN Q7 



STORE SIGN OF X IN * 82 

STORE ABSOLUTE VALUE OF X IN * 81 

MALFORMED IF NOT ENOUGH ARGUMENTS 

STORE SIGN OF Y IN * 84 

STORE ABSOLUTE VALUE OF Y IN * 83 

POP Y 

MALFORMED IF TOO MANY ARGUMENTS 

IF Y=0, SET RESULT TO ZERO* GO TO * 

IF X=0, SET RESULT TO 1/4CPI/2)* 

THEN DETERMINE QUADRANT 



IF Y=X» SET RESULT TO l/4(PI/4)» 
THEN DETERMINE QUADRANT 

SET FLAG NON-ZERO 
INTERCHANGE Y AND X 



COMPUTE Y/X 

TEST FOR RATIO EQUAL TO ZERO 

UNPACK 

IF SFX IS LESS THAN -11» TREAT AS 
ZERO RATIO 

COMPUTE FIXED POINT RATIO = Z 
DIVIDE BY 10*9» THEN 10*<-SFX-1) 
SET P6=0 

IF Z LESS THAN TAN(PI/8) USE K=l 
IF Z GREATER OR EQUAL USE K=3 



*85=K(PI/16) 
T1=Z-TAN (K. PI/16) 

1/2(1+Z(TAN(K. PI/16) ) 

T0=V» ARGUMENT FOR SERIES 

T1=V*2 

SET FLAG FOR CONSTANT + OR - 

SET INITIAL COEFFICIENT D=15 

(+ OR -D/D 

SERIES SUM + 1/D = SUM 

<V*2). SERIES 



F010E395 






020 


T 


3 


025 


I 4 


F010E397 






005 


* 


24 


024 


I 2 


F010E400 


* 


24 


014 


* 


13 


004 


T 


F010E405 






030 


P 


6 


024 


T 


F010E410 






024 


* 


85 


072 


2 


F010E415 


* 


1 


050 


T 





023 


* 80 


F010E420 






002 


* 


2 


020 


* 91 


F010E425 






025 


T 





050 


T 


F010E430 


* 


2 


023 


# 


82 


006 


* 4 


F010E435 






020 


* 


90 


025 


T 


F010E440 


* 


4 


050 


T 





023 


* 84 


F010E445 






006 


# 


14 


021 


T 


F010E450 


* 


14 


050 


T 





070 





F010E455 






060 


P 


4 


021* 


T 


F010E460 






005 


* 


15 


050 


T 


F010E465 


* 


15 


004 


K 


12 


060 


P 5 


F010E470 






120 






004 


T 


F010E475 






077 




2 


025 


I 1 


F010E480 






002 


* 


16 


032 


N 9 


F010E483 






050 


P 


6 


060 


T 2 


F010E495 


* 


17 


023 


P 


6 


010 


$ 1 


F010E500 






002 


* 


18 


020 


J 14 


F010E510 


* 


21 


056 


* 


19 


020 


P 4 


F010E520 






025 


I 


1 


050 


P 4 


F010E530 


* 


19 


020 


P 


6 


025 





F010E540 






002 


* 


20 


020 


* 19 


F010E550 






025 


I 


1 


010 


* 21 


F010E560 


* 


20 


020 


J 


11 


025 


I 1 


F010E570 






025 


P 


4 


056 


* 22 


F010E575 






056 


* 


25 


020 


P 4 


F010E580 






073 




31 


050 


P 4 


F010E583 


# 


25 


004 


T 


2 


030 





F010E586 


* 


22 


004 


P 


6 


036 





F010E590 






060 


P 


6 


025 


N 9 


F010E595 






001 


# 


23 


020 


N 8 


F010E600 






050 


P 


6 


020 


P 4 


F010E605 






024 


K 


14 


050 


P 4 


F010E610 


* 


23 


020 


$ 





010 


= 30 


F010E620 


# 


9 


010 


— 









F010E630 


* 


16 


020 


K 


21 


072 


2 


F010E640 






004 


N 


8 


036 


T 


F010E650 






077 




2 


010 


* 18 


F010E655 


* 


18 


050 


P 


6 


010 


* 23 


F010E660 


* 


80 












F010E670 


* 


81 












F010E680 


* 


82 












F010E690 


# 


83 












F010E700 


# 


84 












F010E710 


# 


85 












F010E720 


# 


90 


062< 


,2077, 


»325i 


,0421 


F010E730 


* 


91 


031, 


»1037i 


.552i 


,4210 


F010E740 


* 


92 


014. 


.4417. 


,665i 


,2104 


F010E750 


* 


93 


045 


,5457- 


,437, 


,6314 


F010E760 


* 


94 


014 


,5657, 


,536, 


,0125 


F010E770 


# 


95 


052 


,6067 


,012, 


,5337 



D=D-2» IF NEGATIVE* TERMINATE SERIES 
V. SERIES PLUS V 

STORE 1/4 ANGLE 

IF FLAG IS NON-ZERO* SET ANGLE TO 

(l/4)PI/2 - ANGLE 

TEST SIGN OF X* IF MINUS 

(1/4)PI - ANGLE 

TEST SIGN OF Y» IF MINUS 

-ANGLE 

CLEAR MQ AND P4 

STORE MAGNITUDE OF ANGLE AND SIGN 



IF ANGLE IS LESS THAN ONE, MULTIPLY 
BY 10*9* SAVE BOTH PARTS OF RESULT 

TEST FOR ZERO 

INITIALIZE COMPARE INSTRUCTION 

TO N8 

DECREASE SFX BY ONE 



COMPUTE POWER OF 10 FOR NORMALIZATION 



TEST FOR ROUNDING UP TO 10*9 



PACK 

EXIT 

RESULT IS GREATER THAN ONE 

MULTIPLY BY 10*8 AND ROUND* 

MULTIPLY BY 4 

FLAG=0 IF Y LESS THAN X 

ABSOLUTE VALUE OF X 

SIGN OF X 

ABSOLUTE VALUE OF Y 

SIGN OF Y 

KlPI/16) 

PI/4= .7853981633974 

PI/8= .3926990816987 

PI/16= .1963495408494 

3 PI/16= .5890486225481 

TAN(PI/16)= .1989123673 

TAN(3 PI/16)= .6681786379 



F010E780 * 96 032 *4(M7»463 * 1771 
F010E790 * 97 11 

F010E800 * 98 15» 



TAN (PI/8)= .4142135623 



F011E000+ 



F 11 004 * 91 010 $ 



MAX 



F012E000 


F 


12 


004 


# 


92 


010 


$ 





MIN 


F012E010 






024 


K 


2 


052 


* 


9 




F012E020 






060 


* 


2 


010 


$ 


1 




F012E030 






020 


Q 


6 


001 


E 


6 


MALFORMED IF NOT MULTIPLE ARGUMENT 


F012E040 


* 


1 


020 





3 


050 


H 


21 




F012E050 






020 


Q 


7 


050 


H 


22 




F012E060 






020 


$ 





010 


= 


17 




F012E070 






020 


$ 





010 


= 


70 


COMPARE 


F012E080 


# 


2 
















F012E090 


* 


3 


020 


H 


22 


050 


Q 


3 




F012E100 


* 


4 


020 


Q 


7 


002 


# 


1 




F012E110 


* 


9 


010 


— 













F012E120 


* 


91 


071 




4 


001 


* 


4 


FOR MAX 


F012E130 


/-""*-> 


92 


071 




6 


001 


* 


4» 


FOR MIN 



GO00EOOO+ 

G000E010 

3000E020 

G000E030 

GOOOE040 

GOOOE050 

G000E060 

G000E070 

G000E080 

G0OOE090 

GOOOEIOO 

GOOOE110 

GOOOE120 

GOOOE130 

GOOOE140 

GOOOE150 

G000E160 



G 
* 



010 * 

020 J 

020 $ 

020 $ 

020 P 

124 K 

6 020 $ 
020 S 
020 P 

7 025 K 
10 020 * 

020 * 

020 * 

020 Q 

020 $ 

020 $ 

010 X 



6 

12 





1 

19 





1 

19 

90 

91 

92 

3 





5 



010 
50 
010 
010 
001 
010 
010 
010 
124 
001 
050 
050 
050 
050 
010 
010 





2 

2 

80 

10 

7 

39 

80 

19 

6 



H 27 
H 28 
H 29 
H 30 
= 13 
= 73 



SET (014=SH0RT FORM) 

INITIALIZE 

ADVANCE TO NONSPACE 

LOCAL ROUTINE (GIVES 



E6 IN IND. SHORT 



VERIFY SPACE AND ADVANCE TO NONSPACE 
LOCAL ROUTINE (COMMON TO GOOD 



TERMINAL 



ERROR IF NOT 
SET LETTER 

INDEX 1 

INDEX 2 

VALUE 

Q3 

ASSIGN VALUE 
EXIT TO X5 ADVANCE 



SET 
SET 
SET 
POP 



(NO COMMA HERE) 



G001EOOO+ G 1 

G001E010 

3001E020 

G001E030 

G001E040 

G001E045 

Ga01E050 

G001E055 

G0O1E060 * 1 

G001E061 

G001E062 

G001E063 

G001E064 

G001E065 

G001E066 

G001E067 

G001E068 

G001E069 

G001E070 

G001E071 * 25 

G001E072 

G001E075 

G001E080 

G001E085 

G001E090 

G001E095 * 2 

GOOIEIOO * 3 

G001E105 

G001E120 * 4 

G001E125 

G001E130 

G001E135 

G001E140 

G001E145 

G001E150 * 5 

G0O1E155 -i* 

G001E155 J b 

G001E160 

G001E165 * 12 

G001E170 

G001E171 

G001E172 * 11 

G001E173 

G001E175 * 8 

G001E180 

G001E185 

G001E190 

G001E195 

G001E200 

G001E240 * 13 

G001E245 

G001E246 

G001E247 

G001E248 



010 

020 

020 

025 

023 

020 

050 

002 

020 

020 

020 

025 

020 

020 

025 

023 

020 

020 

025 

023 

020 

020 

020 

001 

024 

020 

020 

010 

020 

020 

020 

020 

020 

001 

020 

023 

020 

025 

020 

050 

050 

020 

020 

020 

020 

020 

120 

020 

050 

020 

020 

020 

025 

020 



$ 
$ 
$ 
W 7 

* 90 
H 19 
T 

* 1 



K 19 
$ 
$ 
2 


1 



W 

T 

$ 

P 

K 19 

* 90 



E 17 
K 2 



5 

3 



K 21 
K 4 
$ 
E 16 
$ 
* 91 
P 1 
K 19 
Q 12 
Q 8 
Q 12 
$ 



P 21 
Q 14 

K 4 
P 23 



K 19 
$ 



010 
010 
050 
002 
025 
023 
010 
010 
010 
124 
002 
010 
010 
050 
001 
010 
124 
002 
001 
010 
050 
010 
052 
052 
050 
050 

010 
050 
050 
050 
010 
050 
010 
002 
124 
001 
001 
020 
050 
010 
002 
010 
050 
053 
050 
050 
010 
010 
050 
124 
001 
010 



39 
27 
90 

1 . 

9 



6 
39 
21 
19 
25 
79 
27 



6 
39 
19 

6 

4 
44 
20 
50 

2 

3 
16 
21 

45 
21 
14 

20 

51 

16 

13 

13 • 

19 • 

13 

8 

4 
13 
76 
11 
18 

9 

8 
14 
17 

6 
80 
30 
19 

9 
13 



DO (SAME CONTEXT AS 'SET') 

VERIFY SPACE AND ADVANCE TO NONSPACE 

ACCUMULATE WORD 

SAVE DIFFERENCE IN *90 

JUMP IF 'PART* 



JUMP IF 'STEP' ELSE MALFORMED 
VERIFY SPACE AND ADVANCE TO NONSPACE 
EVALUATE PART OR STEP NUMBER 

JUMP IF TERMINAL 

VERIFY SPACE BEFORE CHECKING 'FOR' 

ACCUMULATE WORD 

MALFORMED IF NOT 'FOR' 

VERIFY SPACE AND ADVANCE TO NONSPACE 



ERROR IF TERM 
JUMP IF 'STEP' 
VALIDATE 
SET PART 
FIND PART 
ERROR IF CAN'T 



INALI 



u» 



L&. t*»«C~ 



VALIDAT 
SET STE 
SET STE 
MARK P2 
FIND ST 
ERROR I 
POP Q3 
JUMP IF 

JUMP IF 
JUMP IF 
CANCEL 



E 

P 

P 



EP 

F CAN'T 



FLAG IN Q14 
MINUS AS FLAG 



'FOR' 



NOT TERMINAL 



$U*W Advw ttfec 
*.?/ -ftr TO *o 

GcoiC \£6)> **4- 

3 «f tke. ftJt 
correct: to*. mA<fe 



TERMINAL , 

NO SUSPENDED TASK 9 9* mt ** ***** 
SUSPENDED TASK u»©r^» 



9®/ 



PUSH Q9 

SET 09 TO FIRST STEP 

BRING ALONG ANY STRUCTURE 

RELIEVE Q14 OF RESPONSIBILITY 

RESET FLAGS 

AND FETCH 

LOCAL ROUTINE COMMON TO 'SET' 

SAVE FIRST VALUE FOR USE IN *40 



/hto-bl 



JUMP IF 
POP 03 



NOT SINGLE VALUE 



G001E249 
G001E250 

G001E260 

G001E270 

G001E280 

G001E290 

G001E300 

G001E310 

G001E320 

G001E330 

G001E340 

G001E350 

G001E360 

G001E370 

G001E380 

G001E390 

G001E400 

G001E410 

G001E420 

G001E430 

G001E440 

G001E450 

G001E460 

G001E470 

G001E480 

G001E490 

G001E500 

G001E505 

G001E510 

G001E515 

G001E520 

G001E525 

G001E530 

G001E535 

G001E540 

G001E545 

G001E550 

G001E555 

G001E560 

G001E565 

G001E570 

G001E575 

G001E580 

G001E585 

G001E590 

G001E595 

G001E600 

G001E605 

G001E610 

G001E615 

G001E620 

G001E640 

G001E645 

G001E650 

3001E652 



*■ 9 



* 14 



* 15 



* 16 

* 17 



* 18 



* 19 

* 20 

* 21 



* 22 

* 23 

* 24 

* 30 



* 31 

* 32 

* 33 

* 34 



* 40 

* 41 



* 50 



010 
020 

056 
052 
120 
020 
052 
050 
052 
020 
056 
052 
120 
020 
052 
050 
020 
020 
056 
024 
120 
020 
020 
056 
020 
020 
056 
024 
120 
020 
020 
020 
020 
020 
056 
024 
025 
052 
120 
020 
020 
020 
025 
020 
020 
010 
020 
025 
020 
020 
020 
020 
010 
020 
025 



* 41 
$ 

* 14 
Q 14 



* 93 

* 15 

* 16 
$ 

* 17 



* 93 

* 18 

* 91 
$ 

* 93 
K 1 



* 91 

* 93 

* 92 

$ 



T 

K 1 



* 92 

* 93 
T 

* 93 
$ 

* 93 



010 
071 
052 
050 
024 
020 
020 
010 
010 
071 
052 
050 
024 
020 
010 
001 
010 
56 
056 
050 
050 
052 
010 
001 
010 
056 
056 
050 
050 
056 
056 
052 
010 
056 
056 
071 
052 
050 
050 
010 
124 
001 
010 
010 

124 

001 
050 
050 
050 
010 



= 10 

21 

* 93 



K 
* 

$ 
* 

* 
* 



2 
20 
93 

1 
10 
21 
93 

2 
90 

1 
30 
10 
19 
20 



21 
1 
30 
10 
22 
23 



* 24 



31 
10 
32 
33 
21 
93 



= 13 
A 59 
* 40 
= 2 
= 21 



Q 

$ 

P 

A 59 

$ 

$ 

* 30 
P 1 
K 19 

* 90 

* 91 

* 92 
$ 

* 12 

P 1 124 A 73 
A 73 002 * 51 



K 
# 

H 

H 

H 



19 
50 
27 
28 
29 
73 



JUMP 



CLEAR TOP OF »PART« ELEMENT 



STORE PART NO. IN STRUCTURE 



CLEAR TOP OF •VARIABLE* ELEMENT 



STORE VARIABLE 
JUMP IF SCALAR 



CLEAR TOP OF INDEX ELEMENT 
STORE INDEX 

TIE INTO STRUCTURE 

JUMP IF NOT DOUBLY INDEXED 



CLEAR TOP OF INDEX ELEMENT 
STORE INDEX 

TIE INTO STRUCTURE 
SET UP VALUE ELEMENT 



CLEAR TOP OF VALUE ELEMENT 
STORE VALUE 
POP Q3 

JUMP IF NOT COMMA 
ADVANCE TO NONSPACE 
EVALUATE EXPRESSION 



JUMP IF NOT TERMINAL 



ASSIGN FIRST VALUE 



JUMP IF LEFT PARENTHESIS 



G001E654 
G001E656 
G001E660 
G001E665 
G001E667 
G001E670 
G001E675 
G001E680 
G001E685 
G001E690 
G001E695 
G001E700 
G001E705 
G001E710 

G001E715 
G001E720 
G001E730 
G001E735 
G001E740 
G001E745 
G001E750 
G001E755 
G001E760 
G001E765 
G001E770 
G001E775 
G001E780 
G001E785 
G001E790 
G001E795 
G001E800 
G001E805 
G001E810 
G001E815 
G001E820 
G001E830 
G001E835 
G001E840 
G001E845 
G001E850 
G001E855 
G001E860 
G001E865 
G001E870 
G001E872 
G001E874 
G001E876 
G001E878 
G001E880 
G001E885 
G001E890 
G001E895 
G001E900 
G001E910 
5001E915 



020 P 1 124 A123 

025 A123 001 E 6 

* 51 020 $ 010 = 



020 P 
020 $ 
020 $ 
020 $ 
020 $ 
020 $ 
020 Q 
020 $ 
020 Q 
020 $ 
020 * 
071 



1 050 Q 
010 = 
010 = 
010 = 
010 = 
010 « 



14 
5 
2 

21 

77 
2 

21 



3 050 H 22 
010 = 13 
3 050 H 23 



010 
93 024 
21 052 



13 

1 

59 



* 59 020 050 H 21 

020 $ 010 = 70 
050 T 124 K 25 
025 K 25 002 * 34 

023 H 23 002 E 28 
020 T 070 3 

024 H 23 124 K 12 



* 
* 
* 
* 



025 K 12 001 

52 020 * 93 056 

53 020 Q 
056 * 

* 
* 

* 



E 



28 

53 



54 056 
056 
056 

55 056 

56 12Q 



056 - 

54 024 K 

57 020 - 

55 056 
93 024 

58 004 
050 



* 56 
K 1 



57 020 H 23 050 — 

58 020 H 22 050 — 
060 Q 010 * 

80 024 K 2 052 * 
020 P 1 050 * 
124 K 34 025 K 
001 E 6 020 K 
050 * 91 050 * 
020 I 010 = 
124 K 31 025 K 
001 * 82 010 $ 
020 $ 010 = 



020 Q 

020 Q 

020 $ 

020 Q 

* 83 020 $ 

020 Q 



6 001 

7 050 
010 
6 002 
010 
3 050 



■x- 

020 * 92 001 * 
050 3 010 $ 
020 $ 010 = 
020 Q 3 050 * 



34 
89 
90 
34 

4 
92 

1 
31 

1 
26 
83 
92 
17 

6 
41 
91 
81 

1 
41 
92 



ERROR IF NEITHER LEFT PAREN OR BRACKE 

PUSH 04-Q5 

SAVE LEFT GROUPER AS OPERATOR 

EVALUATE INCREMENT EXPRESSION 

MATCH GROUPERS 

ADVANCE TO NONSPACE 

EVALUATE TERMINAL EXPRESSION 

MOVE TERMINAL VALUE 

POP Q3 

MOVE INCREMENT 

POP Q3 



COPY INITIAL VALUE 

COMPARE INITIAL AND TERMINAL VALUES 

JUMP BACK IF LIMITS EQUAL 

ERROR IF INCREMENT EQUALS ZERO 

NOW TEST EXCLUSIVE-OR OF LESS SIGNAL 

WITH SIGN OF INCREMENT 
ERROR IF INCREMENT INCOMPATIBLE 
(SPACE OK TO ADD STRUCTURE) 



* 81 020 5 010 = 13 

* 82. 020 S 010 = 3 



SAVE LINK TO AVAILABLE SPACE 

CLEAR TOP OF TERMINAL ELEMENT 

SET INCREMENT 

SET TERMINAL VALUE 

SET QO AND LOOP 

LOCAL ROUTINE COMMON TO «SET» AND 

STORE CHARACTER 

ERROR IF NOT LETTER 
SET INDEX FLAGS 
ADVANCE ONE 

JUMP IF NOT LEFT GROUPER 

EVALUATE GROUPED LIST 

JUMP IF Q7 EMPTY 

STORE 2ND INDEX 

POP 07 

MALFORMED IF EXTRA INDICES 

CHECK AND CONVERT FIRST INDEX 

STORE CONVERTED INDEX LOCALLY 

JUMP IF SINGLY INDEXED 

CHECK AND CONVERT SECOND INDEX 
STORE CONVERTED INDEX LOCALLY 
POP Q3 
ELIMINATE SPACES 



• DO 



G001E920 






124 


A 


43 


025 


A 43 




G001E925 






002 


I 


1 


010 


E 6 


MALFORMED IF NOT •=■ 


G001E930 






020 


$ 





010 


= 2 


ADVANCE TO NONSPACE 


G001E935 






020 


$ 





010 


= 21 


EVALUATE EXPRESSION 


G001E940 


# 


89 


010 


— 









EXIT *80 ROUTINE 


G001E945 


* 


90 












LETTER 


G001E950 


* 


91 












INDEX 


G001E955 


* 


92 












INDEX 


G001E960 


* 


93 




— 







, 





G002E000+ 

G002E010 

5002E015 

G002E020 

G002E030 

G002E040 

G002E050 

G002E060 

G002E070 

G002E080 

G002E081 

G002E085 

G002E090 

G002E100 

G002E110 

G002E120 

G002E125 

G002E140 

G002E150 

G002E160 

G002E170 

G002E180 

G002E190 

G002E191 

G002E195 

G002E200 

G002E210 

G002E220 

G002E230 

G002E235 

G002E240 

G002E245 

G002E250 



* 
* 



010 
020 
071 
020 
020 
025 
023 
020 
020 
020 
025 
020 
020 
020 
020 
001 
020 
020 
050 
002 
020 
020 
020 
025 
020 
020 
020 
020 
001 
024 
020 
020 
010 




8 
1 


9 



1 
19 

3 


16 
21 
19 

2 


1 
19 

3 


17 
2 



6 



001 
001 
010 
010 
050 
001 
010 
010 
124 
001 
010 
050 
010 
010 
050 
014 
025 
023 
010 
010 
010 
124 
001 
010 
050 
010 
010 
052 
052 
050 
050 



E 
X 



10 

7 

39 

27 



1 

39 

21 

19 

6 

45 

21 

13 

51 

16 

4 

7 



6 

39 

21 

19 

6 

44 

20 

13 

50 

3 

4 

16 

9 



TO 

ERROR IF DIRECT 

JUMP TO ASCEND IF • DO STEP' 

VERIFY SPACE AND ADVANCE 

PICK UP WORD 

JUMP IF NOT 'STEP* 
VERIFY SPACE AND ADVANCE 
EVALUATE EXPRESSION 
VERIFY TERMINAL 



VALIDATE 
SET CONTEXT 
POP 03 
FIND STEP 
ERROR IF CAN'T 



ELSE SET P16 



ERROR IF NOT 'PART* 
VERIFY SPACE AND ADVANCE 
EVALUATE EXPRESSION 
VERIFY TERMINAL 

VALIDATE 
SET CONTEXT 
POP 03 
FIND PART 
ERROR IF CAN'T 

ELSE SET P16 FOR FIRST STEP 

SET Q9 

JUMP TO FETCH 



G003EOOO+ 


G 


3 010 $ 





G003E010 




020 $ 





G003E020 




010 X 


7 



DONE 
010 = 38 SIMPLE-INDIRECT TEST 
» JUMP TO ASCEND 



G004E00O+ 


$ 








M 


G004E010 




020 


$ 


010 


= 37 


G004E020 




020 


Q 12 


001 


* 2 


G004E030 




050 


Q 8 


020 


K 4 


G004E040 




050 


Q 12 


050 


Q 13 


G004E050 




050 


P 17 


050 


P 23 


G004E060 


* 1 


020 


$ 


010 


= 76 


G004E070 




020 


Q 8 


002 


* 1 


G004E080 


* 2 


014 


X 12 






G004E999 


/ 




G004 


010i 


»7000 



CANCEL 

SIMPLE DIRECT TESTS 
JUMP IF NO STRUCTURE 
ELSE MOVE STRUCTURE BACK 



TO Q8 



RESET P17 AND P23 FLAGS 
ERASE ONE LEVEL OF STRUCTURE 
JUMP IF MORE 
EXIT TO X12 TO SWITCH 



G005E000+ 


$ 










M 





G005E010 




020 


$ 





010 


= 


39 


G005E020 




020 


P 


1 


124 


K 


34 


G005E030 




025 


K 


34 


001 


E 


6 


G005E040 




020 


P 


2 


024 


K 


3 


G005E050 




052 


* 


1 


010 


$ 


1 


G005E060 


* 1 


020 


— 





124 


K 


34 


G005E070 




025 


K 


34 


001 


D 


2 


G005E080 




020 


$ 





010 


= 


27 


G005E090 




025 


W 





050 


T 





G005E100 




023 


T 





002 


D 


1 


G005E110 




020 


$ 





010 


= 


39 


G005E120 




004 


H 


19 


010 


S 


1 


G005E130 




020 


W 


9 


065 


T 





G005E140 




023 


T 





002 


* 


30 


G005E150 




020 


W 


7 


065 


T 





G005E160 




023 


T 





002 


* 


40 


G005E170 




020 


W 


3 


065 


T 





G005E180 




023 


T 





002 


* 


50 


G005E190 




010 


E 


6 








G005E200 


* 30 


020 


Q 


8 


002 


E 


9 


G0O5E21O 




020 


$ 





010 


* 


70 


G005E220 




020 


$ 





010 


= 


21 


G005E230 




020 


P 


1 


124 


K 


19 


G005E231 




025 


K 


19 


001 


E 


6 


G005E240 




020 


$ 





010 


= 


45 


G005E250 




020 


Q 


3 


050 


P 


21 


G005E260 




020 


$ 





010 


= 


13 


G005E270 




020 


$ 





010 


= 


51 


G005E280 




001 


E 


16 


010 


$ 


1 


G005E290 




020 


$ 





010 


= 


56 


G005E300 


* 31 


020 


$ 





010 


* 


80 


G005E310 




010 


X 


5 








G005E320 


* 40 


020 


Q 


8 


002 


E 


9 


G005E330 




020 


$ 





010 


* 


70 


G005E340 




020 


s 





010 


= 


21 


G005E350 




020 


p 


1 


124 


K 


19 


G005E351 




025 


K 


19 


001 


E 


6 


G005E360 




020 


$ 





010 


= 


44 


G005E370 




020 





3 


050 


P 


20 


G005E380 




020 


$ 





010 


= 


13 


G005E390 




020 


$ 





010 


= 


50 


G005E400 




001 


E 


17 


010 


S 


1 


G005E410 




020 


H 


23 


050 


* 


91 


G005E420 


* 41 


020 


* 


91 


052 


* 


42 


G005E430 




124 


K 


6 


025 


K 


1 


G005E440 




001 


# 


43 


010 


$ 


1 


G005E450 


* 42 


004 


— 





060 


* 


91 


G005E460 




020 


$ 





010 


= 


29 


G005E470 




010 


* 


41 








G005E480 


* 43 


004 


H 


22 


075 




21 


G005E490 




020 


$ 





010 


= 


28 


G005E500 




020 


H 


21 


056 


* 


44 


G005E510 


* 44 


020 


H 


23 


056 


— 






DELETE 

VERIFY SPACE AND ADVANCE TO NONSPACE 

VERIFY LETTER 



JUMP IF NOT A WORD 
ACCUMULATE WORD 



JUMP IF »ALL» 
VERIFY SPACE AND 



ADVANCE TO NONSPACE 



JUMP IF 'STEP' 

JUMP IF »PART» 

JUMP IF «FORM» 
ELSE MALFORMED 
STEP-ILLEGAL INDIRECT 
BORROW SPARE TANK 
EVALUATE STEP NUMBER 
VERIFY TERMINAL 

VALIDATE STEP NUMBER 

SET STEP IN CONTEXT 

POP Q3 

FIND STEP 

ERROR IF CAN'T 

ERASE STEP A/C H21-H26 

RESTORE SPARE TANK 

EXIT 

PART - ILLEGAL INDIRECT 

BORROW SPARE TANK 

EVALUATE PART NUMBER 

VERIFY TERMINAL 

VALIDATE PART NUMBER 

SET PART IN CONTEXT 

POP Q3 

FIND PART 

ERROR IF CAN'T 

SET POINTERS IN *91 



JUMP IF NO MORE STEPS 

SET PARAMETER AND UPDATE POINTER 

ERASE STEP STRING EXCEPT HEAD 

LOOP 

SET PARAMETER 

ERASE LEFT LINKED LIST 



G005E520 


* 


45 


020 


$ 





010 


* 


80 


G005E530 






010 


X 


5 








G005E540 


* 


50 


020 





8 


002 


E 


9 


G005E550 






020 


$ 





010 


* 


70 


G005E560 






020 


$ 





010 


= 


21 


G005E570 






020 


p 


1 


124 


K 


19 


G005E571 






025 


K 


19 


001 


E 


6 


G005E580 






020 


$ 





010 


= 


46 


G005E590 






020 


Q 


3 


050 


P 


22 


G005E600 






020 


$ 





010 


= 


13 


G005E610 






020 


$ 





010 


= 


52 


G005E620 






001 


E 


19 


010" 


$ 


1 


G005E630 






020 


$ 





010 


= 


57 


G005E640 


* 


51 


020 


$ 





010 


* 


80 


G005E650 






010 


X 


5 








G005E700 


* 


70 


024 


K 


2 


052 


* 


79 


G005E710 






020 


Q 


1 


056 


* 


71 


G005E720 


# 


71 








020 


— 


— — 


G005E730 






056 


* 


72 


010 


$ 


1 


G005E740 


* 


72 


020 


Q 





050 


— 


-~ 


G005E750 






020 


Q 


1 


050 


Q 





G005E760 






020 


K 


4 


050 


Q 


1 


G005E770 


* 


79 


010 


— 


— 








G005E780 


* 


80 


024 


K 


2 


052 


* 


89 


G005E790 






020 


Q 





056 


* 


81 


G005E800 


* 


81 


050 





1 


020 


— 





G005E810 






056 


* 


82 


004 


K 


4 


G005E820 


* 


82 


056 


* 


83 


020 


— 





G005E830 


* 


83 


050 


Q 





060 


— 





G005E840 


* 


89 


010 


— 


— - 








G005E850 


* 


91 














G005E999 




/ 




G005 


OlOi 


.7000 



RESTORE SPARE TANK 

EXIT 

FORM-ILLEGAL INDIRECT 

BORROW SPARE TANK 

EVALUATE FORM NUMBER 

VERIFY TERMINAL 

VALIDATE FORM NUMBER 

SET FORM IN CONTEXT 

POP Q3 

FIND FORM 

ERROR IF CAN'T 

ERASE FORM A/C H24-H26 

RESTORE SPARE TANK 

EXIT 

BORROW SPARE TANK (SUBROUTINE) 



RESTORE SPARE TANK (SUBROUTINE) 



LOCAL STORAGE 



G006E000+ 


$ 










M 





TYPE 






G006E010 




020 


$ 





010 


= 


39 


VERIFY SPACE AND ADVANCE TO NONSPACE 


G006E020 




020 


P 


2 


050 


* 


90 


SAVE 


POINTER 


G006E022 




120 







050 


H 


19 


CLEAF 


! H19 


G006E024 




020 


P 


1 


124 


A 


66 








G006E026 




025 


A 


66 


002 


D 


8 


JUMP 


IF 


QUOTES 


G006E030 




020 


$ 





010 


= 


27 


ACCUMULATE WORD 


G006E040 




025 


W 





050 


T 











G006E050 




023 


T 





002 


D 


3 


JUMP 


IF 


•ALL* TO D3 EXTENSION 


G006E060 




004 


H 


19 


010 


$ 


1 








G006E070 




020 


W 


9 


065 


T 











G006E080 




023 


T 





002 


D 


8 


JUMP 


IF 


•STEP' 


G006E090 




020 


W 


7 


065 


T 











G006E100 




023 


T 





002 


D 


8 


JUMP 


IF 


•PART' 


G006E110 




020 


W 


3 


065 


T 











G006E120 




023 


T 





002 


D 


8 


JUMP 


IF 


•FORM' 


G006E130 




020 


W 


13 


065 


T 











G006E140 




023 


T 





002 


D 


8 


JUMP 


IF 


•SIZE' 


G006E150 




020 


W 


11 


065 


T 











G006E160 




023 


T 





002 


D 


8 


JUMP 


IF 


•USERS' 


G006E162 




020 


W 


1 


065 


T 











G006E164 




023 


T 





002 


D 


8 


JUMP 


IF 


•TIME' 


G006E170 




020 


* 


90 


050 


P 


2 


ELSE 


EVALUATE VALUES 


G006E180 




052 


* 


1 


010 


$ 


1 








G006E190 


* 1 


020 


— 





050 


P 


1 


RESET 


• P] 


AND P2 


G006E200 


* 2 


020 


P 


1 


124 


A108 








G006E210 




025 


A108 


001 


* 


4 


JUMP 


IF 


NOT UNDERLINE 


G006E220 




020 


$ 





010 


= 


12 


PUSH 


Q3 




G006E230 




020 


K 


4 


050 


Q 


3 


STACK UNDEFINED SYMBOL IN Q3 


G006E240 


* 3 


020 


$ 





010 


= 


1 








G006E250 




124 


A108 


025 


A108 








G006E260 




002 


* 


3 


010 


$ 


1 


LOOP 


IF 


UNDERLINE 


G006E270 




020 


$ 





010 


= 


3 


ELIMINATE SPACES 


G006E280 




010 


* 


12 














G006E290 


* 4 


020 


P 


1 


124 


K 


34 








G006E300 




025 


K 


34 


001 


* 


9 


JUMP 


IF 


NOT LETTER 


G006E310 




020 


P 


2 


024 


K 


3 








G006E320 




052 


* 


5 


052 


* 


6 








G006E330 


* 5 


020 


— 


—_ 


124 


K 


34 








G006E340 




025 


K 


34 


002 


* 


9 


JUMP 


IF 


NEXT CHARACTER ALSO LETTER 


G006E350 


* 6 


020 


— 





124 


K 


31 








G006E360 




025 


K 


31 


002 


* 


9 


JUMP 


IF 


NEXT CHARACTER A LEFT GROUPE 


G006E370 




020 


P 


1 


052 


* 


7 








G006E380 


* 7 


020 


_- 





002 


* 


9 


JUMP 


IF 


SCALAR 


G006E390 




071 




5 


001 


* 


8 


JUMP 


IF 


MATRIX 


G006E400 




071 




1 


002 


* 


9 


JUMP 


IF 


NOT VECTOR (IE UNDEFINED) 


G006E410 


* 8 


020 


$ 





010 


= 


12 


PUSH 


Q3 




G006E420 




020 


P 


1 


024 


K 


4 








G006E430 




050 


Q 


3 


010 


$ 


1 


STACK INDEXED LETTER PLUS FLAG 


G006E440 




020 


S 





010 


= 


2 


ADVANCE 


TO NONSPACE 


G006E450 




010 


# 


12 














G006E460 


* 9 


020 


P 


2 


050 


P 


18 


SET STARTING POINTER 


G006E470 




020 


$ 





010 


= 


21 


EVALUATE EXPRESSION 


G006E480 




020 


P 


2 


050 


P 


19 









G006E490 


* 


10 


020 


P 


19 


025 


K 


3 


G006E500 






052 


* 


11 


050 


P 


19 


6006E510 


* 


11 


020 


— 





124 


A 


14 


G006E520 






025 


A 


14 


002 


* 


10 


G006E530 






020 


P 


19 


025 


P 


18 


G006E540 






056 


P 


18 


010 


$ 


1 


G006E550 






020 


$ 





010 


= 


12 


G006E560 






020 


P 


18 


050 


Q 


3 


G006E570 


* 


12 


020 


P 


1 


124 


A 


59 


G006E580 






025 


A 


59 


001 


* 


13 


G006E590 






020 


$ 





010 


= 


2 


G006E600 






010 


# 


2 








G006E610 


* 


13 


020 


P 


1 


124 


K 


19 


G006E620 






025 


K 


19 


002 


* 


20 


G006E625 






020 


$ 





010 


s 


79 


G006E630 






020 


$ 





010 


= 


27 


G006E640 






025 


W 


6 


050 


T 





G006E650 






023 


T 





001 


E 


6 


G006E660 






020 


S 





010 


= 


39 


G006E670 






020 


$ 





010 


= 


27 


G006E680 






025 


w 


3 


050 


T 





G006E690 






023 


T 





001 


E 


6 


G006E700 






020 


$ 





010 


= 


39 


G006E710 






020 


$ 





010 


= 


21 


G006E720 






020 


P 


1 


124 


K 


19 


G006E730 






025 


K 


19 


001 


E 


6 


G006E740 






020 


$ 





010 


= 


46 


G006E750 






020 





3 


050 


P 


22 


G006E760 






020 


$ 





010 


= 


13 


G006E770 






020 


$ 





010 


= 


52 


G006E780 






056 


P 


3 


001 


E 


19 


G006E790 






020 


$ 





014 


= 


7 


G006E800 


# 


14 


020 





2 


001 


D 


7 


G006E810 






020 


Q 


2 


056 


* 


15 


G006E820 






056 


* 


16 


024 


K 


1 


G006E830 






056 


* 


17 


056 


# 


18 


G006E840 


* 


15 


004 


Q 


2 


020 


— — 


G006E850 






050 


Q 


2 


010 


$ 


1 


G006E860 


* 


16 


020 


Q 


6 


050 


— 





G006E870 


* 


17 


060 


Q 


6 


020 


— 





G006E880 






004 





3 


050 


Q 


3 


G006E890 


* 


18 


020 





7 


050 


— 





G006E900 






060 


Q 


7 


010 


* 


14 


G006E905 


* 


20 


020 


Q 


2 


001 


D 


6 


G006E910 






020 


Q 


2 


056 


* 


21 


G006E915 






056 


* 


22 


024 


K 


1 


G006E920 






056 


* 


23 


056 


# 


24 


G006E925 


* 


21 


004 


Q 


2 


020 


— 





G006E930 






050 


Q 


2 


010 


$ 


1 


G006E935 


* 


22 


020 


Q 


6 


050 


— 





G006E940 


* 


23 


060 


Q 


6 


020 


— 





G006E945 






004 


Q 


3 


050 


Q 


3 


G006E950 


# 


24 


020 


Q 


7 


050 


— 





G006E955 






060 


Q 


7 


010 


* 


20 


G006E960 


# 


90 















PUSH Q3 

STACK EXPRESSION RANGE INDICATORS 

JUMP IF NOT A COMMA 
ADVANCE TO NONSPACE 
LOOP 

JUMP IF TERMINAL 
VERIFY PRECEDING SPACE 
ACCUMULATE WORD 



ERROR IF NOT «IN' 

VERIFY SPACE AND ADVANCE 

ACCUMULATE WORD 



TO NONSPACE 



ERROR IF NOT «FORM« 

VERIFY SPACE AND ADVANCE TO NONSPACE 

EVALUATE FORM NUMBER 

VERIFY TERMINAL 

VALIDATE FORM NUMBER 

PUT FORM NUMBER IN CONTEXT 

POP 03 

FIND FORM 

ERROR IF CAN'T 

UNPACK TO S 

JUMP TO D7 EXT WHEN Q2 EMPTIED TO Q6< 



JUMP TO D6 EXT. WHEN Q2 EMPTIED TO Q( 



LOCAL STORAGE 



G006E999 / G006 010*7000/ 



G007E000+ 


G 


7 010 


$ 











LINE 


G007E010 




020 


$ 





010 


= 


3 


ELIMINATE SPACES 


G007E020 




124 


K 


19 


025 


K 


19 


ERROR IF NOT. TERMINAL 


G007E030 




001 


E 


6 


020 


A 


42 


SET UP CR+EOM 


G007E040 




050 


S 


1 


010 


X 


14» 


TRANSMIT AND TO X5 VIA 



X14. 



G008E000+ 


G 


8 010 


$ 







PAGE 


G008E010 




020 


$ 





010 = 3 


ELIMINATE SPACES 


G008E020 




071 




31 


002 E 6 


ERROR IF NOT TERMINAL 


G008E030 




020 


$ 





010 = 22 


CALL FOR NEW PAGE 


G008E040 




010 


X 


5 


» 





G0O9EOO0+ G 9 010 E 



G010E000+ G 10 010 E 6 



G011E000+ 


G 11 010 


$ 











FORM 


G011E010 


020 


$ 





010 


= 


39 


VERIFY SPACE AND ADVANCE 


G011E012 


020 


Q 


9 


002 


E 


9 


ERROR IF INDIRECT 


G011E015 


020 


P 


10 


002 


E 


6 


ERROR IF CONDITION ATTACHED 


G011E020 


020 


$ 





010 


= 


21 


EVALUATE FORM NUMBER 


G011E030 


020 


$ 





010 


= 


46 


VALIDATE 


G011E040 


020 


Q 


3 


050 


P 


22 


SET CONTEXT 


G011E050 


020 


$ 





010 


= 


13 


POP Q3 


G011E060 


020 


$ 





010 


= 


3 


ELIMINATE SPACES 


G011E070 


124 


A 


80 


025 


A 


80 




G011E080 


002 


* 


1 


010 


E 


6 


MALFORMED IF NOT COLON 


G011E090 


* 1 020 


$ 





010 


= 


1 


STEP ONE CHARACTER 


G011E100 


001 


* 


2 


010 


E 


6 


MALFORMED IF NOT TERMINAL M 


G011E110 


* 2 020 


I 


1 


050 


P 


13 


SET SUBSTATE FOR FORM 


G011E120 


020 


S 





010 


= 


55 


SWITCH TO USER 


G011E130 


020 


$ 





010 


= 


53 


KICK OUT PROGRAM 


G011E140 


010 


X 


1 






» 


JUMP TO Q SERVICE 



MINUS 



G012E000+ $ MO STOP 

G012E010 020 $ 010 = 38 SIMPLE-INDIRECT TESTS 

G012E020 120 050 P 17 SET 'STOPPED* FLAG 

G012E030 020 S 050 P 12 

G012E040 020 $ 010 = 64 PREPARE MESSAGE 

G012E042 * 90 * 90 

G012E044 020 J 12 050 P 2 COPY STEP NUMBER FROM R TO S 

G012E046 * 1 020 $ 010 = 2 

G012E048 124 K 35 025 K 35 

G012E050 002 * 2 010 $ 1 

G012E052 020 P 1 124 A 27 

G012E054 025 A 27 001 * 4 

G012E056 * 2 020 P 12 024 K 3 

G012E058 050 P 12 056 * 3 

G012E060 * 3 020 P 1 050 

G012E062 020 * 1 010 = 1 

G012E070 * 4 020 A 27 050 P 11 

G012E080 020 $ 010 = 66 ADD PERIOD 

G012E090 020 A 42 050 P 11 

G012E100 020 $ 010 » 66 ADD CR+EOM 

G012E110 010 X 12 TRANSMIT AND SWITCH VIA X12 

G012E150 * 90 071,0631*142*3447 'STOPPED BY STEP' 

G012E160 012*4240,341,1070 

G012E170 007,0621*461*2447 

G012E180 007*2000*000,0000, 

G012E999 / G 12 010,7000/ 



G013E000+ $ M GO 

G013E010 020 $ 010 = 37 SIMPLE-DIRECT TESTS 

G013E020 020 Q 12 050 Q 8 

G013E030 020 13 050 9 

G013E040 020 K 4 050 Q 12 

G013E050 050 13 010 $ 1 

G013E052 020 P 23 001 * 4 JUMP IF NO SPACE PROBLEM IN X7 

G013E054 020 K 4 050 P 23 RESET P23 FLAG 

G013E056 010 X 7 JUMP TO ASCEND 

G013E060 * 4 020 P 17 001 * 1 JUMP IF NOT 'STOP* 

G013E070 020 K 4 050 P 17 RESET «STOP« FLAG 

G013E080 010 X 5 JUMP TO ADVANCE 

G013E090 * 1 020 Q 8 001 E 7 ERROR IF NO OPEN TASK 

G013E100 020 Q 9 050 P 21 

G013E110 020 I 010 = 51 FIND CURRENT STEP 

G013E120 002 * 2 010 X 5 JUMP IF FOUND. ELSE ADVANCE 

G013E130 * 2 050 P 16 010 X 6» SET P16 AND FETCH 

G013E999 / G 13 010*7000/ 



G014E000+ 

GOUEOlO 

G014E020 

G014E030 

G014E035 

G014E040 

G014E050 

G014E060 

G014E070 

G014E080 

G014E090 

G014E100 

G014E110 

G014E120 

G014E130 

G014E140 

G014E150 

G014E160 

G014E170 

G014E180 

G014E190 

G014E200 

G014E210 

G014E220 

G014E230 

G014E240 

G014E250 

G014E260 

G014E270 

G014E280 

G014E290 

G014E300 

G014E310 

G014E320 

G014E330 

G014E340 

G014E350 

G014E360 

G014E370 

G014E380 

G014E390 

G014E400 

G014E410 

G014E420 

G014E430 

G014E440 

G014E450 

G014E460 

G014E465 

G014E470 

G014E480 

G014E490 

G014E500 

G014E510 



* 



020 P 
050 T 
002 * 
020 Q 
020 $ 
050 P 
025 K 
020 K 
050 P 
020 $ 
124 K 
001 * 
020 $ 
020 Q 
020 Q 
020 $ 
020 Q 
020 $ 
020 Q 
020 P 
050 Q 
020 S 
020 Q 
020 $ 
020 $ 
124 
002. 
021 
020 
025 



020 I 

* 5 020 I 

050 * 
020 P 
025 * 
020 I 

* 6 020 I 

050 * 

* 7 020 S 

* 8 020 * 

024 I 
020 $ 
010 * 

* 9 020 P 

020 $ 
020 P 
020 J 

* 12 020 -- 

020 $ 
020 P 
050 H 
020 $ 



13 


50 
8 


27 

34 
4 

29 


31 
3 

6 
7 

6 

3 

29 
3 

3 



19 
4 
7 

28 

91 
3 
4 

90 

29 

91 
2 
3 

90 


90 

1 



8 

27 



28 

20 


28 
20 



1 



025 
023 
010 
001 
010 
124 
001 
050 
010 
010 
025 
010 
010 
001 
050 
010 
002 
010 
050 
001 
010 
010 
050 
010 
010 
025 
010 
050 
001 
002 
014 
024 
010 
001 
002 
014 
024 
010 
050 
002 
050 
010 

050 
010 
001 
052 
050 
010 
070 
010 
010 





3 



1 

10 

39 

34 

6 

28 

1 

= 1 
K 31 
$ 1 
= 26 

* 1 
P 29 
= 17 
E 6 
= 41 
P 28 

* 2 
$ 1 
= 41 
P 29 
= 13 
= 3 
K 19 



E 
* 
* 
* 
* 
* 
$ 
* 
# 
* 



P 
* 



6 

90 

7 

5 
5 
90 
1 
7 
6 
6 



* 90 



1 
12 

9 
90 
62 

11 
66 
11 
12 
11 
66 
12 

1 
36 

2 



DEMAND 



JUMP IF EXPECTING VALUE 

ERROR IF DIRECT 

VERIFY SPACE AND ADVANCE 

ERROR IF NOT LETTER 
RESET INDEX FLAGS 



ADVANCE ONE 

JUMP IF NOT LEFT GROUPER 

EVALUATE GROUPED LIST 

JUMP IF NO 2ND INDEX 

STORE 2ND INDEX 

POP 07 

ERROR IF EXTRA INDICES 

CHECK AND CONVERT FIRST INDEX 

STORE CONVERTED INDEX 

JUMP IF SINGLE INDEX 

CHECK AND CONVERT SECOND INDEX 
STORE CONVERTED INDEX 
POP Q3 
ELIMINATE SPACES 

ERROR IF NOT AT TERMINAL 



TO NONSPACE 



INITIALIZE OUTPUT LINE 
JUMP WHEN ALL SPACES ARE IN 

INSERT SPACE 
LOOP 

INSERT LETTER 

JUMP IF NO SUBSCRIPTS 

=77 LEFT RIGHT GROUPER IN J20 

INSERT LEFT GROUPER 



CONVERT FIRST SUBSCRIPT 



G014E520 
G014E530 
G014E540 
G014E550 
G014E560 
G014E570 
G014E580 
G014E590 
G014E600 
■G014E610 
G014E620 
G014E630 
G014E635 
G014E640 
G014E650 
G014E660 
G014E670 
G014E680 
G014E690 
G014E700 
G014E705 
G014E710 
G014E715 
G014E720 
G014E721 
G014E722 
G014E725 
G014E730 
G014E740 
G014E750 
G014E752 
G014E754 
G014E756 
G014E758 
G014E760 
G014E770 
G014E780 
G014E790 
G014E800 
G014E810 
G014E820 
G014E830 
G014E840 
G014E850 
G014E860 
G014E870 
G014E880 
G014E890 
G014E999 



020 P 29 001 * 
020 A 59 050 P 
020 $ 010 = 
020 P 29 070 
050 H 20 010 $ 
020 $ 010 = 
1 
20 050 P 
010 = 
010 = 
43 050 P 
010 = 
010 = 



* 10 020 J 

020 $ 

* 11 020 $ 

020 A 

020 $ 

020 $ 



020 A131 050 
020 $ 010 



10 
11 
66 
12 

1 
36 

2 
11 
66 
62 
11 
66 
62 
11 
66 

1 

1 
13 



020 P 025 I 
050 P 010 $ 
020 I 3 050 P 
010 X 12 
* 50 020 I 050 P 13 
020 Q 12 050 Q 8 
020 13 050 9 
020 K 4 050 Q 12 
050 13 010 S 1 
020 P 1 124 A124 
025 A124 002 * 51 
020 J 12 050 P 2 
010 * 2 

010 = 21 

1 001 * 53 
27 025 A 27 

52 010 E 6 
010 = 1 

53 010 E 6 

27 050 H 27 

28 050 H 28 

29 050 H 29 
3 050 H 30 
010 = 13 
010 = 73 
5 

9 050 P 21 
010 = 51 

16 010 S 1 
010 = 
8 010 X 6 



020 $ 
020 $ 
020 P 
124 A 
002 * 

* 52 020 $ 

001 * 

* 53 020 P 

020 P 
020 P 
020 Q 
020 $ 
020 $ 
010 X 

* 51 020 Q 

020 $ 
050 P 
020 $ 
050 H 



JUMP IF NO 2ND SUBSCRIPT 
INSERT COMMA 

CONVERT SECOND SUBSCRIPT 

=77 LEFT RIGHT GROUPER IN J20 
INSERT RIGHT GROUPER 
INSERT SPACE 

INSERT •=• 
INSERT SPACE 



INSERT EOM 
COMPENSATE 



FOR =25 COUNTING UP ONE 



90 
91 + 

/ 



SET SUBSTATE TO EXPECT VALUE 
EXIT TO TRANSMIT AND SWITCH 
RESET SUBSTATE TO ZERO 
RESTORE CONTROL PDL 



JUMP IF LAST CHARACTER IS •*• 

INITIALIZE POINTER FOR SCAN 

ADVANCE TO NONSPACE 

EVALUATE EXPRESSION 

JUMP IF TERMINAL MINUS 

ALLOW A PERIOD 

ERROR IF NOT A PERIOD 

ADVANCE ONE 

ERROR IF NOT TERMINAL MINUS 

SET LETTER 

SET INDEX 

SET INDEX 

SET VALUE 

POP Q3 

ASSIGN VALUE 

EXIT TO X5 ADVANCE 

SET STEP (MUST EXIST) 

FIND CURRENT STEP (MUST EXIST) 

SET P16 

READ CLOCK 

SET H8 START TIME AND EXIT TO FETCH 

LOCAL STORAGE 



10 



27: 



G 14 010*7000/ 



H — 


-E000+ 


H 













H — 


-EOOl 


H 


1 










H — 


-E002 


H 


2 










H — 


-E003 


H 


3 










H — 


-E004 


H 


4 


100 


0000 


000 


0000 


H — 


-E005 


H 


5 











H — 


-E006 


H 


6 











H — 


-E007 


H 


7 









— — 


H — 


-E008 


H 


8 










H — 


-E009 


H 


9 










H — 


-EOIO 


H 


10 












H— 


-EOll 


H 


11 







000 





H — 


-E012 


H 


12 




— — 




— 


H — 


-E013 


H 


13 




— — — 




— — — — 


H — 


-E014 


H 


14 









— — — — 


H — 


-E015 


H 


15 


100 


0000 


000 


0000 


H — 


-E016 


H 


16 


100 


oooo 


000 


0000 


H — 


-E017 


H 


17 










H — 


-E018 


H 


18 










H — 


-E019 


H 


19 










H — 


-E020 


H 


20 










H — 


-E021 


H 


21 










H — 


-E022 


H 


22 










H — 


-E023 


H 


23 










H — 


-E024 


H 


24 










H— 


-E025 


H 


25 










H— 


-E026 


H 


26 










H — 


-E027 


H 


27 










H — 


-E028 


H 


28 










H— 


-E029 


H 


29 










H — 


-E030 


H 


30 










H — 


-E031 


H 


31 


000 


♦ 1000 


»012 


»1037 



LAST 16 BIT CLOCK READING 

TIME OF DAY (IN CLOCK COUNTS) 

DATE 

DATE (CONTINUED) 

STN DUE FOR Q MSG 

TIME TO LOG 

TIME TO RO 

STN IN CORE 

START TIME OF CURRENT SHOT 

SCR CONTENTS 

NEXT AVAILABLE BUFFER 

NEXT AVAILABLE DRUM SLOT 

STN 

BUFFER 

DRUM 

+= «0F« DELAYED A/C READING 

+= «0F« DELAYED A/C PUNCHING 

CURRENT DRUM ROUTINE CONTROL WORD 

TEMP FOR =21* =26. 

ACCUMULATED CHARACTERS RESULT OF =27 

INTEGER FOR OUTPUT 

SEARCH POINTER 

SEARCH POINTER 

SEARCH POINTER 

SEARCH POINTER 

SEARCH POINTER 

SEARCH POINTER 

LETTER 

FIRST INDEX 

SECOND INDEX 

VALUE 

DRUM WORD FOR 



ERROR MSG INDEX 



c 



I E000+ 


[ 


I E001 ] 


[ 1 


I E002 1 


t 2 


I E003 1 


! 3 


I E004 ] 


[ 4 


I E005 1 


[ 5 


I E006 


[ 6 


I E007 


[ 7 


I E008 


[ 8 


I E009 


[ 9 





1 

2 
3 
4 
5 
6 
7 
8 
9 



SMALL INTEGERS 



Q 



o 



J E000+ JO 60 MINUTES PER HOUR 

j E001 j i 1800 COUNTS PER MINUTE 

j E002 J 2 55 LINE NUMBER FOR EJECT 

j E0 03 J 3 15 PREFERRED PROCESSING PERIOD 

j £004 J 4 30 SHOT TIME FOR PROCESSING 

j E005 J 5 120 SHOT TIME FOR READING 

j E006 J 6 120 SHOT TIME FOR PUNCHING 

j £007 J 7 450 OVERDUE TIME FOR PROCESSING 

j £008 J 8 300 OVERDUE TIME FOR READING 

j E009 j 9 300 OVERDUE TIME FOR PUNCHING 

J E010 J 10 Q 11 Q 10 

J E011 J 11 NO NO 

J E012 J 12 R R 

J E013 J 13 A A 

J E014 J 14 N 8 N 8 

J E015 J 15 

j E016 J 16 4 CHOKE NUMBER 

j £017 J 17 1 UNCHOKE NUMBER 

j E oi8 J 18+ 9 8 CONSTANT 

J E019 J 19 

j £020 J 20 COMMUNICATION CELL =77 TO DO AND G14 

j £021 J 21 NUMBER OF INPUTS 

j E022 J 22 NUMBER OF OUTPUTS 

j E023 J 23 TIME WORKED 



K~ 

K~ 
K — 
K — 

K~ 
K— 
K — 
K~ 
K— 
K-- 
K— 
K — 
K~ 
K — 
K — 
K- 
K- 
K- 
K- 
K- 
K- 
K~ 
K~ 
K- 
K- 
K- 
K~ 
K- 
K- 
K- 
K- 
K~ 
K- 
K- 
K- 
K- 
K- 
K- 
K- 
K- 
K- 
K- 
K- 
K- 



-E000+ 

-E001 

-E002 

-E003 

•-E004 

-E005 

-E006 

■-E007 

-E008 

-E009 

■-E010 

•-E011 

-E012 

-E013 

— E014 

-E015 

— E016 

— E017 
-E018 
— E019 
— E020 
— E021 
— E022 
— E023 
--E024 

— E025 
— E026 
— E027 

— E028 
— E029 
— E030 
— E031 
— E032 
— E033 
— E034 
— E035 
— E036 
--E037 
--E038 
--E039 
— E040 
--E041 
— E042 
— E043 



K 
K 
K 
K 
K 
K 
K 
K 
K 
K 
K 
K 
K 
K 
K 
K 
K 
K 
K 
K 
K 
K 
K 
K 
K 
K 
K 
K 
K 
K 
K 
K 
K 
K 
K 
K 
K 
K 
K 
K 
K 
K 
K 
K 





1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 



000 » 


0000, 


000, 


ooo» 


0000, 


000» 


000* 


0001, 


000, 


000* 


0001, 


000, 


100. 


0000, 


000, 


000. 


oooo, 


000, 


000 1 


7777, 


000, 


ooo» 


7777, 


000, 


OOOi 


0000, 


177, 


OOOj 


0000, 


020, 


000» 


0000, 


>033» 


077, 


6000, 


,000, 


000, 


1000, 


,000, 


000, 


0777, 


,777, 


OOOi 


2000, 


,000, 


177, 


7777, 


,777, 


000, 


0017- 


,000, 


000, 


oooo 


.000, 


000, 


0017. 


.000, 


000, 


OOOO 


.000, 


000, 


,0000 


.000, 


040, 


oooo 


► 000, 


020, 


oooo 


.000, 


010, 


oooo 


.000, 


004, 


,0000 


.000, 


002i 


,0000 


,000, 


001. 


,0000 


,000, 


ooo. 


.0000 


,400, 


000< 


.0000 


,200, 


000 


.0000 


,100, 


000 


.0000 


,040, 


000 


.0000 


,020, 


000 


,0000 


,010, 


ooo 


.0000 


,004, 


000 


.0000 


,002, 


000 


»0000 


,001, 


003 


»0000 


,000, 


000 


»oooo 


,700, 


102 


,0000 


♦ 000, 


101 


,0000 


,000, 


000 


,0000 


♦ 177, 


000 


,0000 


,177, 


ooo 


,0000 


,177, 



,0000 
,0001 
,0000 

♦ 0001 
,0000 

♦ 7777 

♦ OOOO 

♦ 7777 

♦ OOOO 

♦ oooo 

♦ oooo 

♦ oooo 

♦ oooo 

,7777 
,0000 
,7777 
,0000 

♦ 0177 

♦ 0177 

♦ 0400 

♦ 0017 
,0000 
,0000 
,0000 
,0000 
,0000 
,0000 
,0000 

♦ oooo 

♦ oooo 

♦ oooo 

♦ oooo 

♦ oooo 

♦ oooo 

,0000 
,0000 
,0000 
,0000 

♦ oooo 

♦ oooo 

♦ oooo 

♦ oooo 

♦ oooo 

3 



ZERO (GENERAL CONSTANTS) 

ADDRESS MODIFIER 

ADDRESS MODIFIER 

ADDRESS MODIFIER 

SIGN BIT 

EXTRACTOR RIGHT ADDRESS 

EXTRACTOR LEFT ADDRESS 

EXTRACTOR BOTH ADDRESSES 

MASK INPUT MESSAGES 

COUNTER FOR EXTENDED CLOCK 

MASK FOR DRUM SECTION CODE 

EXTRACTOR SFX 

EXTRACTOR SIGN(CF) 

EXTRACTOR MAG(CF) 

UNIT FOR SFX (AND TEST IN =27) 

ALL ONES 

BUFFER MASK 

CHARACTER CODE MASK AND STN MASK. 

BUFFER + STN MASK 

BIT OF DISTINCTION 

EXTRACTOR NUMERIC CODE 

EN BIT 

DS BIT 

RO BIT 

TL BIT 

CL BIT 

SU BIT 

* 

MPY^ / 

ON BIT OR +, - 

OF BIT OR ARITH OPERATOR 

TC BIT OR LEFT GROUPER 

RI BIT OR RIGHT GROUPER 

RC BIT OR RELATION 

EJ BI) OR LETTER 

TO BIT OR DIGIT 

CL+SU OR CONSTANT 

PRECEDENCE BITS 

MATRIX HEAD 

VECTOR HEAD 

MAJOR CYCLE MSGS 

MINOR CYCLE MSGS 

MASK FOR INDEX 



OR GREATER 

OR EQUAL OR MATRIX 

OR LESS OR VECTOR 

OR FUNCTION OR SUBSCRIPT 



L E000+ L 

L E001 L 1 100 0000 000 0000 

L E002 L 2 100 0000 000 0000 

L E003 L 3 100 0000 000 0000 

L E004 L 4 100 0000 000 0000 

L E005 L 5 100 0000 000 0000 

L E006 L 6 100 0000 000 0000 

l_ £007 L 7 100 0000 000 0000 

L E008 L 8 100 0000 000 0000 

L E009 L 9 100 0000 000 0000 

L E010 L 10 100 0000 000 0000 

L E011 L 11 100 0000 000 0000 

L E012 L 12 100 0000 000 0000 

L E013 L 13 100 0000 000 ,0000 

l_ E014 L 14 100 0000 000 0000 

L E015 L 15 100 0000 000 0000 



Q FOR ENABLE 
L ENABLED AND IDLE 
Q FOR CARD READER 

S WAITING FOR READER-READY SIGNAL 
S READING CARDS 
Q FOR DRUM ASSIGNMENTS 
L DRAINING BUFFERS BEFORE CL+SU 
Q FOR INPUT BUFFER AND CL+SU 
Q FOR CARD PUNCH 
, S PUNCHING CARDS 
L GREEN (P13 HOLDS SUBSTATE) 
Q FOR BUFFER AND PREFERRED PROCESSING 
Q FOR PROCESSING 
S PROCESSING 
L CHOKED 



N E000+ 


N 


0+ 


1 


39 


N E001 


N 


1 + 


, 10 


39 


N E002 


N 


2 + 


100 


39 


N E003 


N 


3 + 


1000 


39 


N E004- 


N 


4+ 


10000 


39 


N E005 


N 


5+ 


100000 


39 


N E006 


N 


6+ 


1000000 


39 


N E0O7 


N 


7+ 


10000000 


39 


N E008 


N 


8 + 


100000000 


39 


N E009 


N 


9+ 


1000000000 


39 


N EOIO 


N 


10 + 


10000000000 


39 


N EOll 


N 


11+100000000000 


39 



POWERS OF TEN. 



p— 
p— 
p— 
p— 
p— 
p— 

p— 
p_- 
p_- 
p_- 

p— 
p— 
p— 
p— 
p— 
p_- 

p— 
p— 
p— 
p— 
p— 
p— 
p— 
p— 
p— 
p— 
p— 
p— 
p— 
p— 
p— 
p_. 



-E000+ 

-E001 

-E002 

-E003 

-E004 

-E005 

-E006 

-E007 

-E008 

-E009 

-EOIO 

-EOll 

-E012 

-E013 

-E014 

-E015 

-E016 

-E017 

-E018 

-E019 

-E020 

-E021 

-E022 

— E023 

-E024 

-E025 

-E026 

-E027 

-E028 

-E029 

-E030 

-E031 



P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 





1 

3 

4 
5 
6 

7 
8 
9 

H 

13 2 

14 010 

15 100 0000 000 0000 

16 100 0000 000 0000 

17 100 0000 000 0000 
18 

19 
20 
21 
22 

23 100 0000 000 0000 

24 000 

25 010 

26 010 

27 

28 
29 
30 
31 



LINE NUMBER ON TYPEWRITER PAGE 
PRESENT CHARACTER WORD IN R 
ADDRESS OF PRESENT CHARACTER WORD 
LOCN FOR PACKING OR UNPACKING 

(EXTENDED TO SIGN POSITION) 
(EXTRACTED) 
(MAGNITUDE) 
(EXTENDED TO SIGN POSITION) 
(EXTRACTED) 
(MAGNITUDE) 
OF SPACE APER 



IN 



SFX 

SIGN 

CF 

SFX 

SIGN 

CF 

LOCN OF SPACE APER »IF«, ELSE -1. 

PRESENT CHARACTER WORD IN S 

ADDRESS OF PRESENT CHARACTER WORD INS 

SUB(L10)=0 INST* 1 FORM* 2 INIT. 3 DE 

LINK FROM =25 (OUTPUT LINE) 

+ = RI WHILE Lll OR L14 

+ = LOCN OF CURRENT STEP IN RT ADDR 

+ = STOPPED (USED BY G13 «G0«) 

WORKING STORE 

WORKING STORE 

CONTEXT CELL FOR PART ETC. 

CONTEXT CELL FOR STEP ETC. 

CONTEXT CELL FOR FORM ETC. 

+ = PROBLEM IN X7 

DRUM ROUTINE CONTROL WORD FOR =78 

LINK FROM =78 (TRANSMIT LINE) 

LINK FOR TYPE ROUTINES 

WORKING STORE 

WORKING STORE 

WORKING STORE 

WORKING STORE 

WORKING STORE 



Q — 


-E000+ 


Q 














AVAILABLE SPACE PDL LINK 


Q — 


-E001 


Q 


1 











SPARE TANK PDL LINK 


Q — 


-E002 


Q 


2 


100 


0000 


000 


0000 


OPERAND PDL LINK 


Q — 


-E003 


Q 


3 


100 


0000 


000 


0000 


OPERAND 


Q — 


-E004 


Q 


4 


100 


0000 


000 


0000 


OPERATOR PDL LINK 


Q— 


-E005 


Q 


5 


100 


0000 


000 


0000 


OPERATOR 


Q — 


-E006 


Q 


6 


100 


0000 


000 


0000 


AUXILIARY PDL LINK 


Q — 


-E007 


Q 


7 


100 


0000 


000 


0000 


AUXILIARY ITEM 


Q — 


-E008 


Q 


8 


100 


0000 


000 


0000 


CONTROL PDL LINK 


Q — 


-E009 


Q 


9 


100 


0000 


000 


0000 


CONTROL (STEP NUMBER) 


Q — 


-EOIO 


Q 


10 


000 


0000 


000 


0000 


LIST OF STEPS (AND PARTS) 


Q — 


-EOll 


Q 


11 


000 


0000 


000 


0000 


LIST OF FORMS 


Q — 


-E012 


Q 


12 


100 


0000 


000 


0000 


HIDEOUT FOR ( Q8 ) 


Q — 


-E013 


Q 


13 


100 


0000 


000 


oooo 


HIDEOUT FOR (Q9) 


Q— 


-E014 


Q 


14 


000 


— — — 


000 


0000 


TEMPORARY LIST STRUCTURE 


Q— 


-E015 


Q 


15 


000 


0000 


000 





TEMPORARY LINEAR LIST 



R E000+ 


R 





R EOOl 


R 


1 


R E002 


R 


2 


R E003 


R 


3 


R E004 


R 


4 


R E005 


R 


5 


R E006 


R 


6 


R E007 


R 


7 


R E008 


R 


8 


R E009 


R 


9 


R EOIO 


R 


10 


R EOll 


R 


11 


R E012 


R 


12 


R E013 


R 


13 


R E014 


R 


14 


R E015 


R 


15 


R E016 


R 


16 


R E017 


R 


17 


R E018 


R 


18 


R E019 


R 


19 


R E020 


R 


20 


R— E021 


R 


21 


r_ — E 022 


R 


22 


R E023 


R 


23 


R E024 


R 


24 


R E025 


R 


25 


R E026 


R 


26 


R E027 


R 


27 


R E028 


R 


28 


R E029 


R 


29 


R E030 


R 


30 


R E031 


R 


31 


R E032 


R 


32 


R E033 


R 


33 


R E034 


R 


34 


R E035 


R 


35 


R E036 


R 


36 


R E037 


R 


37 


R E038 


R 


38 


R E039 


R 


39 


R £040 


R 


40 


R E041 


R 


41 


R~— E042 


R 


42 


R E043 


R 


43 


R E044 


R 


44 


R E045 


R 


45 


R :E046 


R 


46 


R E047 


R 


47 


R E048 


R 


48 


R E049 


R 


49 


R E050 


R 


50 


R E051 


R 


51 


R E052 


R 


52 


R E053 


R 


53 



100 0000 000 0000 INPUT AND INTERPRETATION BLOCK 



R E054 


R 54 


R E055 


R 55 


R E056 


R 56 


R E057 


R 57 


R E058 


R 58 


R E059 


R 59 


R E060 


R 60 


R E061 


R 61 


R E062 


R 62 


R E063 


R 63 


R E064 


R 64 


R E065 


R 65 


R E066 


R 66 


R E067 


R 67 


R E068 


R 68 


R E069 


R 69 


R E070 


R 70 


R E071 


R 71 


R E072 


R 72 


R E073 


R 73 


R E074 


R 74 


R E075 


R 75 


R E076 


R 76 


R E077 


R 77 


R E078 


R 78 


R E079 


R 79 


R E080 


R 80 


R E081 


R 81 



S E000 + 


S 





S E001 


S 


1 


S E002 


S 


2 


S E003 


S 


3 


S E004 


S 


4 


S E005 


5 


5 


S E006 


S 


6 


S E007 


S 


7 


S E008 


S 


8 


S E009 


s 


9 


S EOIO 


s 


10 


S EOll 


s 


11 


S E012 


s 


12 


S E013 


s 


13 


S- E014 


s 


14 


S E015 


s 


15 


S E016 


s 


16 


S E017 


s 


17 


S E018 


s 


18 


S E019 


s 


19 


S E020 


s 


20 


S— E021 


s 


21 


S E022 


s 


22 


S E023 


s 


23 


S E024 


s 


24 


S E025 


s 


25 


S E026 


s 


26 


S E027 


s 


27 


S E028 


s 


28 


S- E029 


s 


29 


S E030 


s 


30 


S E031 


s 


31 


S E032 


s 


32 


S E033 


s 


33 


S E034 


s 


34 


S E035 


s 


35 


S- — E036 


s 


36 


S E037 


s 


37 


S E038 


s 


38 


S E039 


s 


39 


S E040 


s 


40 


S E 041 


. s 


41 


S E042 


s 


42 


S E043 


s 


43 


S E044 


s 


44 


S E045 


s 


45 


S E046 


s 


46 


S E047 


s 


47 


S E048 


s 


48 


S E049 


s 


49 


S E050 


s 


50 


S E051 


s 


51 


S E052 


s 


52 


S E053 


s 


53 



OUTPUT BLOCK 



S E054 


S 


54 




S E055 


s 


55 




S E056 


s 


56 




S E057 


s 


57 




S E058 


s 


58 




S E059 


s 


59 




S E060 


s 


60 




S E061 


s 


61 




S E062 


s 


62 




S E063 


s 


63 




S E064 


s 


64 




S E065 


s 


65 




S E066 


s 


66 




S E067 


s 


67 




S E068 


s 


68 




S E069 


s 


69 




S E070 


s 


70 




S E071 


s 


71 




S E072 


s 


72 




S E073 


s 


73 100 0000 000*4052 


(NEEDED FOR D7) 


S E074 


s 


74 100 0000 000»4052 


(NEEDED FOR D7) 



T E000+ 


T 





T E001 


T 


1 


T E002 


T 


2 


T E003 


T 


3 


T E004 


T 


4 


T E005 


T 


5 


T E006 


T 


6 


T E007 


T 


7 



TEMPORARY STORAGE REGION 

(NOT GUARANTEED OVER SUBROUTINES) 



UOOOEOOO+ 


U 





$ 





$ 





U00OE001 


* 





L 





L 





UOOOE002 


* 


1 


L 





L 





U0OOE003 


* 


2 


L 





L 





UOOOE004 


# 


3 


L 





L 





U000E005 


* 


4 


L 





L 





U000E006 


* 


5 


L 





L 





U000E007 


# 


6 


L 





L 





U000E008 


* 


7 


L 





L 





U000E009 


* 


8 


L 





L 





UOOOEOIO 


* 


9 


L 





L 


0» 



STN TABLE — STATE 



U001E000+ 


U 


1 




$ 




$ 


U001E001 


•* 





100 


0000 


000 


0000 


UOO1EO02 


# 


1 


100 


0000 


000 


0000 


U001E003 


* 


2 


100 


0000 


000 


0000 


U001E004 


# 


3 


100 


0000 


000 


0000 


U001E005 


# 


4 


100 


0000 


000 


0000 


U001E006 


* 


5 


100 


0000 


000 


0000 


U001E007 


* 


6 


100 


0000 


000 


0000 


UO01E0O8 


* 


7 


100 


0000 


000 


0000 


U001E009 


* 


8 


100 


0000 


000 


0000 


UOOIEOIO 


* 


9 


100 


0000 


000 


0000* 



STN TABLE — CURRENT BUFFER 



U002E000+ 


U 


2 




$ 




$ 


STN TABLE 


U002E001 


* 





100 


0000 


000 


oooo 




U002E002 


* 


1 


100 


oooo 


000 


oooo 




U002E003 


* 


2 


100 


0000 


000 


oooo 




U002E004 


* 


3 


100 


oooo 


000 


oooo 




U002E005 


* 


4 


100 


oooo 


000 


oooo 




U002E006 


* 


5 


100 


oooo 


000 


oooo 




U002E007 


* 


6 


100 


oooo 


000 


oooo 




U002E008 


* 


7 


100 


oooo 


000 


oooo 




U002E009 


# 


8 


100 


oooo 


000 


oooo 




U002E010 


# 


9 


100 


oooo 


000 


oooo* 





— DRUM ASSIGNMENT 



U0O3EO0O+ 


U 


3 


U003E001 


* 





U003E002 


* 


1 


U003E003 


# 


2 


U003E004 


* 


3 


U003E005 


* 


4 


U003E006 


* 


5 


U003E007 


# 


6 


U003E008 


* 


7 


U003E009 


* 


8 


U003E010 


# 


9 





1 

2 

3 

5 
6 
7 
8 
9 




1 
2 
3 

5 
6 
7 
8 
9 



STN TABLE — NEXT STN IN SAME STATE 



9 100 0000 000 0000» 



U004E000+ 


U 


4 




$ 




$ 


U004E001 


# 





100 


0000 


000 


0000 


U004E002 


* 


1 


100 


0000 


000 


0000 


U004E003 


* 


2 


100 


0000 


000 


0000 


U004E004 


* 


3 


100 


0000 


000 


0000 


U004E005 


# 


4 


100 


0000 


000 


oooo 


U004E006 


* 


5 


100 


0000 


000 


0000 


U004E007 


* 


6 


100 


0000 


000 


oooo 


U004E008 


* 


7 


100 


oooo 


000 


oooo 


U004E009 


* 


8 


100 


0000 


000 


oooo 


U004E010 


# 


9 


100 


0000 


000 


oooo* 



STN TABLE — TIME OF LAST ACTIVITY 



U005E000+ 


U 


5 


$ 


$ 


U005E001 


* 





1 


1 


U005E002 


* 


1 


2 


2 


U005E003 


* 


2 


3 


3 


U005E004 


* 


3 


4 


4 


U005E005 


* 


4 


5 


5 


U005E006 


# 


5 


6 


6 


U005E007 


* 


6 


7 


7 


U005E008 


* 


7 


8 


8 


U005E009 


# 


8 


9 


9 


U005E010 


# 


9 


10 


10 


U005E011 


* 


10 


11 


11 


U005F012 


-K- 


1 1 


1.2 


12 


U005E013 


# 


12 


13 


13 


U005E014 


# 


13 


14 


14 


U005E015 


# 


14 


15 


15 


U005E016 


* 


15 100 


0000 000 


0000 



BUFFER TABLE— NEXT OPEN BUFFER 



U006E000+ 


U 


6 


U006E001 


* 





U006E002 


* 


1 


U006E003 


* 


2 


U006E004 


* 


3 


U006E005 


* 


A 


U006E006 


* 


5 


U006E007 


* 


6 


U006E008 


# 


7 



$ 





1 001 


1 


2 002 


2 


3 003 


3 


A 020 


4 


5 021 


5 


6 022 


6 


7 023 


7 



DRUM SLOT TABLE — NEXT OPEN SLOT 



100 0000 000 0000* 



UO07E00O+ 


U 


7 


U007E001 


* 





U007E002 


* 


1 


U007E003 


* 


2 


U007E004 


* 


3 


U007E005 


* 


4 


U007E006 


* 


5 


U007E007 


# 


6 


U007E008 


* 


7 


U007E009 


# 


8 


U007E010 


* 


9 



$ $ DRUM TABLE — INITIALS 
005*4130*270*0000 
005*4130*270*0000 
005.4130,270*0000 
005*4130,270*0000 
005*4130,270*0000 
005,4130,270*0000 
005,4130,270,0000 
005,4130,270,0000 
005,4130,270,0000 
005,4130,270,0000, 



V E000+ V V V VARIABLE TABLE (ORIGIN) 

v EOOl V 1 100 0000 000 0000 LCA 

V E002 V 2 100 0000 000 0000 LCB 

V E003 V 3 100 0000 000 0000 LCC 

V E004 V 4 100 0000 000 0000 LCD 

v E005 V 5 100 0000 000 0000 LCE 

v EQ06 V 6 100 0000 000 0000 LCF 

v E0 07 V 7 100 0000 000 0000 LCG 

V E008 V 8 100 0000 000 0000 LCH 

V E009 V 9 100 0000 000 0000 LCI 

V E010 V 10 100 0000 000 0000 LCJ 

v E011 V 11 100 0000 000 0000 LCK 

v E oi2 V 12 100 0000 000 0000 LCL 

V £013 V 13 100 0000 000 0000 LCM 

V E014 V 14 100 0000 000 0000 LCN 

v E 015 V 15 100 0000 000 0000 LCO 

v E016 V 16 100 0000 000 0000 LCP 

v E017 V 17 100 0000 000 0000 LCQ 

v £018 V 18 100 0000 000 0000 LCR 

V E019 V 19 100 0000 000 0000 LCS 

V E020 V 20 100 0000 000 0000 LCT 

v , E 021 V 21 100 0000 000 0000 LCU 

v . E022 V 22 100 0000 000 0000 LCV 

v £023 V 23 100 0000 000 0000 LCW 

V' E024 V 24 100 0000 000 0000 LCX 

V E025 V 25 100 0000 000 0000 LCY 

v E026 V 26 100 0000 000 0000 LCZ 

v E027 V 27 100 0000 000 0000 A 

V E028 V 28 100 0000 000 0000 B 

V E029 V 29 100 0000 000 0000 C 

V E030 V 30 100 0000 000 0000 D 

v £031 V 31 100 0000 000 0000 E 

V E032 V 32 100 0000 000 0000 F 

V E033 V 33 100 0000 000 0000 G 

v E034 V 34 100 0000 000 0000 H 

v E035' V 35 100 0000 000 0000 I 

v E036 V 36 100 0000 000 0000 J 

v £037 V 37 100 0000 000 0000 K 

v E038 V 38 100 0000 000 0000 L 

V E039 V 39 100 0000 000 0000 M 

v £040 V 40 100 0000 000 0000 N 

v £041 V 41 100 0000 000 0000 

v £042 V 42 100 0000 000 0000 P 

V £043 V 43 100 0000 000 0000 Q 

v E044 V 44 100 0000 000 0000 R 

v E045 V 45 100 0000 000 0000 S 

v E046 V 46 100 0000 000 0000 T 

v _ — £047 V 47 100 0000 000 0000 U 

v E048 V 48 100 0000 000 0000 V 

v E 49 v 49 100 0000 000 0000 W 

v E050 V 50 100 0000 000 0000 X 

v £051 V 51 100 0000 000 0000 Y 

V E052 V 52 100 0000 000 0000 Z 



W E000+ 


W 





000*0000*001 


.1414 


ALL 


W E001 


w 


1 


000*0002*411 


,1505 


TIME 


W E002 


w 


2 


000»0000*006i 


• 1722 


FOR 


W E003 


w 


3 


000*0000*6171 


.2215 


FORM 


W E004 


w 


4 


000.0061*722) 


• 1523 


FORMS 


W E005 


w 


5 


000*0000*000 


,1106 


IF 


W E006 


w 


6 


000*0000*000 


► 1116 


IN 


W E007 


w 


7 


000,0002*001 


.2224 


PART 


W E008 


w 


8 


000*0200*122 


,2423 


PARTS 


W- — E009 


w 


9 


000*0002*324 


»0520 


STEP 


W EOIO 


w 


10 


000*0232*405 


»2023 


STEPS 


W EOll 


w 


11 


000*0252*305 


»2223 


USERS 


W E012 


w 


12 


002*6011*425 


.0523 


VALUES 


W E013 


w 


13 


000*0002*311 


.3205 


SIZE 


W E014 


w 


14 


000*0000*000 


.1722 


OR 


W E015 


w 


15 


000*0000*001 


»1604 


AND 



Z E000+ Z 177»7777. 777, 7777 USER'S INITIALS (8-BIT CHAR STRING) 



XOOOEOOO+ 




$ 










M 





X000E005 


# 





013 


$ 


1 


010 


* 


10 


X000E010 






020 


H 


1 


024 


* 


1 


XOOOE015 






050 


H 


6 


010 


* 


2 


XOOOE020 


* 


1 










300 


X000E025 


* 


2 


120 







050 


T 





X000E030 


* 


3 


020 


T 





024 


K 


23 


XOOOE035 






142 


K 


23 


020 


T 





X000E040 






024 


K 


1 


050 


T 





X000E045 






025 


N 


1 


001 


* 


3 


XOOOE050 


* 


10 


020 


H 


1 


025 


H 


5 


XOOOE055 






001 


X 


1 


120 







X000E060 






004 


H 


1 


044 


J 


1 


X000E065 






060 


* 


64 


032 


J 


1 


X000E070 






020 


J 


1 


064 


H 


5 


X000E075 






120 







050 


T 





X000E080 


* 


11 


020 


T 





024 


* 


13 


XOOOE085 






054 


* 


12 


120 







X000E090 


# 


12 


050 


— 





050 


— - 





X000E095 






020 


T 





024 


K 


3 


XOOOEIOO 






050 


T 





025 


* 


14 


XOOOE105 






001 


* 


11 


010 


* 


20 


XOOOE110 


* 


13 




S 







R 





XOOOE115 


* 


14 






41 






41 


XOOOE120 


* 


20 


120 







004 


* 


64 


XOOOE130 






044 


J 





050 


* 


64 


X000E135 






036 


N 


2 


060 


H 


20 


X000E140 






020 


K 


4 


050 


* 


91 


X000E145 






020 


$ 





010 


* 


70 


XOOOE150 






000 










4 


XOOOE155 






020 


* 


91 


070 




1 


XO00E160 






050 


* 


91 


020 


H 


2 


X000E165 






071 




48 


050 


* 


21 


X000E170 






075 




8 


050 


* 


22 


X000E175 






075 




16 


050 


* 


24 


X000E180 






075 




8 


050 


* 


25 


XOOOE185 






004. 


H 


3 


075 




16 


X000E190 






050 


* 


27 


075 




8 


X000E195 






050 


* 


28 


010 


* 


30 


XOOOE200 


* 


21 














XOOOE205 


* 


22 














X000E210 


* 


23 












11 


XOOOE215 


* 


24 














X000E220 


* 


25 














X000E225 


* 


26 












11 


X000E230 


* 


27 














XOO0E235 


* 


28 














X000E240 






100 


0000 


000 


0000 


X000E245 


* 


29 




* 


21 




* 


21 


XOOOE250 


* 


30 


020 


* 


29 


052 


# 


31 


XOOOE255 


# 


31 


020 


— 


-— 


005 


* 


34 


X000E260 






124 


K 


20 


024 


# 


95 


X000E265 






056 


* 


32 


010 


$ 


1 


X000E270 


* 


32 


056 


* 


33 


020 


— ■ 


- — 



LOGGING ROUTINE 
SKIP IF T3 OFF 
UPDATE TIME TO RO 

TEN SECOND INTERVAL FOR RO'S 
RO LOOP 



CLEAR IMAGE IN R AND S 



XOOOE275 
X000E280 
X000E285 
X000E290 
X000E295 
X000E300 
XO0OE305 
XOOOE310 
X000E315 
X000E320 
X000E325 
X00OE330 
XOOOE335 
X000E340 
X000E345 
X000E350 
X000E355 
X000E360 
X000E365 
X000E370 
X000E375 
X000E380 
XOOOE385 
X000E390 
X000E395 
X000E400 
X000E405 
XOOOE410 
X0O0E415 
XO0OE420 
X000E425 
X000E430 
X000E435 
X000E440 
X000E445 
X000E450 
X000E455 
XO00E460 
X000E465 
XOOOE470 
X000E475 
X000E480 
X000E485 
X000E490 
X000E495 
X000E500 
XOOOE505 
X000E510 
XOOOE515 
X000E520 
XOOOE525 
X000E530 

X000E535 
X000E540 
X000E545 



* 33 

* 34 

* 40 

* 41 

* 42 

* 43 



* 45 

* 46 

* 47 



* 48 

* 49 

* 44 



024 
020 
052 
070 
010 
070 
120 
050 
020 
056 



001 * 
024 K 
020 T 
050 T 
001 * 
020 H 
020 $ 
010 
120 
020 L 
020 T 
024 U 
020 - 
020 H 
050 H 
020 * 
050 * 
020 $ 
010 
020 * 
020 $ 
010 
120 
020 L 
020 T 
024 U 
020 - 
020 H 
050 H 
020 $ 
010 
020 * 
050 * 
020 J 
120 
020 $ 
010 
020 J 
120 
020 $ 
010 
020 J 
004 J 
044 J 



91 

31 

31 

1 

31 

2 







42 

43 
1 


41 
20 




10 



3 

20 
20 
97 
90 




050 
024 
020 
050 
020 
050 
050 
010 
024 
014 
020 
020 
050 
024 
025 
010 
050 
010 

050 
50 
001 
052 
050 
024 
010 
025 
010 
010 



90 050 
010 




5 

3 

20 
20 





050 
50 
001 
052 
50 
024 
010 
010 



91 070 
91 010 

21 050 
050 
010 

22 050 
050 

010 

1 072 

23 036 
1 060 



K 2 

* 91 

* 91 

* 91 

* 91 
H 20 
I 1 
U 2 

* 42 

H 20 
H 20 



1 
1 
1 
97 
70 
2 
H 20 





47 

46 



1 

45 



H 20 



$ 1 

* 70 

2 
H 20 

* 70 

2 
H 20 





44 

49 



1 

48 

70 

2 

3 

$ 1 

H 20 



J 21 

* 70 

3 
H 20 
J 22 

* 70 

4 

1 

N 2 

H 20 



CONVERT NUMBER OF SLOTS ASSIGNED 



CONVERT NUMBER OF GREENS 



CONVERT NUMBER WORKING 



CONVERT NUMBER IN QUEUE 



CONVERT NUMBER OF INPUTS 



CONVERT NUMBER OF OUTPUTS 



CONVERT EFFICIENCY IN PER CENT 



X000E550 120 050 J 23 

X000E555 020 $ 010 * 70 

X000E560 010 4 

X000E565 * 50 120 050 H 20 CONVERT INITIALS FOR STATIONS 

X000E570 * 51 020 $ 010 * 80 

X000E575 020 H 20 024 K 1 

X000E580 050 H 20 025 N 1 

X000E585 001 * 51 010 $ 1 

X000E590 * 60 100 5 010 $ 1 COPY PRINT IMAGE 

X000E595 120 050 T 

X00OE6OO * 61 020 T 024 * 13 

X000E605 054 * 62 010 $ 1 

X000E610 * 62 020 101 

X000E615 020 T 024 K 3 

X000E620 050 T 025 * 14 

X000E621 001 * 61 010 $ 1 

X000E622 020 * 64 024 K 1 

X000E623 025 J 002 * 63 

X000E624 106 1 010 * 65 

X000E625 * 63 106 010 * 65 PAGE IF NEXT ENTRY IS ON THE HOUR 

X000E626 * 64 WORKING STORAGE 

X000E630 * 65 013 $ 1 010 X 1 

X000E631 023 * 97 001 X 1 EXIT UNLESS NO USERS 

X000E632 130 X 1 HALT IF T3 AND NO USERS 

X000E635 * 70 024 K 2 052 * 71 SUBROUTINE TO CONVERT INTEGER 

X000E640 024 K 2 052 * 79 

X000E645 * 71 020 051 * 75 

X000E650 124 K 5 025 K 1 

X000E655 050 T 010 $ 1 

X000E660 020 K 4 050 T 1 

X000E665 * 72 020 T 024 J 11 

XO0OE670 056 * 73 1?0 

X000E675 * 73 004 H 20 044 

X00OE68O 050 H 20 060 T 2 

XO0OE685 025 K 1 001 * 74 

X000E690 050 T 1 014 * 75 

X000E695 * 74 023 T 006 * 75 

X000E700 020 T 1 006 * 75 

X000E705 * 75 * 78 020 T 2 

X000E710 024 * 95 056 * 76 

X000E715 * 76 056 * 77 020 

X000E720 * 77 024 * 91 050 

X000E725 * 78 020 * 91 070 1 

X000E730 050 * 91 020 T 

X000E735 025 K 1 050 T 

X000E740 * 79 001 010 * 72 

X000E745 * 80 024 K 2 052 * 89 SUBROUTINE TO CONVERT INITIALS 

X000E750 020 H 20 024 U 7 

X000E755 056 * 82 020 H 20 

X000E760 071 2 056 * 81 

X000E765 * 81 020 K 4 070 

X000E770 * 82 050 * 91 020 

X000E775 050 T 010 $ 1 

X000E780 * 83 020 T 001 * 89 

X000E785 071 2 001 * 85 



XOO0E790 
X000E795 
X000E800 
X000E805 
X000E810 
XOOOE815 
X000E820 
X000E825 
X000E830 
X000E835 
X000E840 
X000E845 
X000E850 
X000E855 
X000E860 
X000E865 
X000E870 
X000EB75 
X000E880 
X000E885 
X000E890 
X000E895 
X000E900 
X000E999 



* 84 

* 85 

* 86 



* 87 

* 88 



89 
90 
91 
92 
93 
94 
95 
96 
97 
/ 



071 
120 
020 
071 
020 
020 
020 
071 
020 
024 
056 
024 
020 
050 
010 



1 



92 

1 

93 

94 


4 

1 
96 
88 
91 
91 
91 



01 
14 
14 
01 
14 
50 
71 
50 
64 
56 
20 
50 
70 
10 



84 

86 

86 

86 

86 

1 

4 



1 

87 



1 
83 



14 

23 

31 







WORKING 
STROBE 



STORAGE 



BASE FOR LEFT IMAGE 
BASE FOR RIGHT IMAGE 
NUMBER OF USERS 



010*7000/ 



X001EOOO+ 

X001E010 

X001E020 

X001E030 

X001E040 

X001E050 

X001E060 

X001E070 

X001E080 

X001E090 

XOOIEIOO 

XOOlEllO 



131 
020 
013 
002 
025 
020 
020 
020 
020 
020 
020 
002 





1 

11 
6 
1 
5 

11 
h 

10 
1 




010 
020 
010 
002 
002 
001 
002 
001 
002 
025 
010 







2 


11 

3 
11 

11 
5 
2* 



QUEUE SERVICE 

READ CLOCK 

JUMP IF T3 FOR 

JUMP IF 

JUMP IF 

JUMP IF 

JUMP IF 

JUMP IF 

JUMP IF 

JUMP IF 



(HALT HERE IF Hi) 

WINDUP 
LO FOR ENABLE* ELSE SKIP 
TIME TO RO IN WINDUP 
LI TO DISABLE STN 
NO L5 Q FOR DRUM SLOT 
DRUM SLOT AVAILABLE 
NO MESSAGE DUE 
BUFFER AVAILABLE FOR MSG 



JUMP IF TIME TO LOG* ELSE TO X2 



X002E000+ 

X002E010 

X002E020 

X002E030 

X002E040 

X002E050 

X002E060 

X002E070 

X002E080 

X002E090 

X002E100 

X002E110 

X002E120 

X002E130 

X002E140 

X002E150 

X002E160 

X002E170 

X002E180 

X002E190 

X002E200 

X002E210 

X002E220 

X002E230 

X002E240 

X002E250 

X002E260 

X002E270 

X002E280 

X002E290 

X002E292 

X002E294 

XO02E300 

X002E310 

X002E320 

X002E330 

X002E335 

X002E340 

X002E350 

X002E360 

X002E370 

X002E380 

X002E390 

X002E400 

X002E402 

X002E404 

X002E410 

X002E415 

X002E420 

X002E430 

X002E440 

X002E450 

X002E460 

X002E470 



10 

20 

30 
31 



32 

33 



35 
40 



41 
42 



010 

120 

001 

124 

071 

020 

001 

001 

001 

001 

001- 

001 

020 

010 

020 

010 

020 

020 

020 

020 
020 
020 
020 
001 
024 
025 
020 
020 
020 
050 
023 
024 
024 
024 
130 
050 
020 
020 
124 
006 
056 
020 
020 
020 
025 
020 
025 
020 
025 
020 
025 
020 
020 







3 

17 

21 

9 

10 

10 

10 

20 

30 

10 



2 

12 

31 

12 





13 

9 





9 

32 

1 

2 

32 



21 

21 

13 

1 

1 

1 



9 

1 

1 

A124 
X 12 



41 

12 



1 

61 

1 



A124 
P 1 
K 34 
P 18 
A 27 
A109 
P 10 



145 
050 
050 
052 
071 
071 
071 
071 
071 
071 
010 
010 



142 
010 
010 

141 
010 
010 
071 
020 
050 
001 
010 
014 
024 
010 
002 
002 
002 
002 

010 
005 
050 
025 
020 
056 
050 
010 
124 
002 
124 
006 
124 
001 
124 
001 
050 
001 



40 

9 

12 

12 

21 

1 

1 

2 

1 

1 

10 

48 



142 K 33 



K 34 
= 54 
= 47 
L 13 
R 1 
= 58 
= 5 
26 
P 
P 
* 33 
= 22 
= 22 
1 
1 
40 
70 
35 
14 



X 10 
X 12 
P 18 
A124 
P 2 



53 
2 
2 

61 
5 



* 
P 

A 
D 

A124 
X 12 
K 34 

* 50 
A 27 

* 42 



SIGNAL SERVICE 

SCAN FOR SIGNALS 

JUMP IF NO SIGNALS ELSE SET H9 

SET H12 FOR SIGNALLING STATION 



JUMP 
JUMP 
JUMP 
JUMP 
JUMP 
JUMP 
•TO' 
LOOP 
• RO 



IF 
IF 
IF 
IF 
IF 
IF 



•ON» 
•OF* 
•TO 
•RC« 
•EJ« 
•TO* 



«RI ' 



ELSE ASSUME 
TREAT BY SUBROUTINE 
BACK TO SIGNAL SERVICE 
ERASE SIGNAL 

MERGE WITH «EJ« TREATMENT 

•EJ' ERASE SIGNAL 

BRING IN USER'S BLOCK 

CHANGE STATE TO 'PROCESSING* 

READ BUFFER 
RELEASE BUFFER 
CONVERT 

JUMP IF 'EJ' ELSE • RC • 

JUMP IF STILL ROOM ON PAGE 
EJECT. TYPE TIME LINE AND SKIP 
TYPE TIME LINE AFTER 'EJ' 
COUNT ONE INPUT 



JUMP IF WAITING FOR 
JUMP IF WAITING FOR 
JUMP IF WAITING FOR 
JUMP IF WAITING FOR 
ELSE PHONY SUBSTATE 
CLEAR H9 AND JUMP 
JUMP IF EMPTY TO SWITCH 
SAVE LAST CHARACTER 



INSTRUCTION 
FORM 

INITIALS 
VALUE DEMANDED 
CODE 



VIA X12 



i*» TO SWITCH 
CHARACTER 



JUMP IF LINE ENDS WITH 
SET ADDRESSES FOR LAST 
INTIALIZE POINTER 
ADVANCE TO NONSPACE 

JUMP IF TAB 



JUMP IF •*» 

JUMP IF NOT LETTER* ASSUME STEP LABEL 

ASSUME DIRECT COMMAND 

JUMP UNLESS LAST CHARACTER WAS PERIOC 

REPLACE BY TERMINAL PERIOD 

FIRE IF UNCONDITIONAL 



X002E480 






025 


K 


43 


056 


* 


43 


X002E485 






025 


P 


2 


001 


E 


6 


X002E490 


# 


43 


020 


A 


45 


050 


— 





X002E500 






010 


X 


4 








X002E510 


# 


50 


020 


P 


2 


050 


P 


19 


X002E515 






020 


$ 





010 


= 


20 


X002E520 






020 


T 





070 




39 


X002E525 






024 


P 


2 


025 


P 


19 


X002E530 






124 


K 


5 


025 


I 


1 


X002E535 






025 


N 


1 


002 


E 


11 


X002E540 






020 


P 


1 


001 


* 


52 


X002E545 






020 


$ 





010 


= 


39 


X002E550 






020 


P 


2 


025 


K 


3 


X002E555 






052 


# 


51 


020 


A131 


X002E560 


* 


51 


050 


— 





010 


$ 


1 


X002E570 


* 


52 


020 


$ 





010 


= 


45 


X002E580 






020 


Q 


3 


050 


P 


21 


X002E590 






020 


S 





010 


= 


13 


X002E600 






020 


P 


18 


124 


A 


27 


X002E610 






025 


A 


27 


001 


* 


54 


X002E620 


* 


53 


020 


A130 


050 


— - 





X002E630 


# 


54 


020 


P 


10 


001 


* 


56 


X002E640 






025 


K 


43 


056 


* 


55 


X002E650 


# 


55 


020 


A131 


050 


— 





X002E660 


# 


56 


020 


$ 





010 


= 


6 


X002E670 






020 


Q 





056 


# 


57 


X002E680 


# 


57 


001 


E 





020 


— - 





X002E690 






001 


E 





010 


$ 


1 


X002E700 






020 


$ 





010 


= 


51 


X002E705 






001 


* 


58 


010 


$ 


1 


X002E710 






020 


$ 





010 


= 


56 


X002E715 






020 


$ 





010 


= 


51 


X002E720 


* 


58 


020 


H 


23 


002 


# 


62 


X002E725 






020 


$ 





010 


= 


68 


X002E730 






020 


H 


21 


056 


* 


59 


X002E735 






020 


$ 





010 


= 


10 


X002E740 


* 


59 


056 


* 


60 


056 


— 


-— — 


X002E745 






024 


K 


1 


056 


# 


61 


X002E750 


* 


60 


020 


H 


22 


056 


— 





X002E755 


* 


61 


020 


P 


20 


050 


— 





X002E760 






020 


* 


60 


124 


K 


5 


X002E765 






071 




21 


050 


H 


24 


X002E770 






120 







050 


H 


25 


X002E775 


* 


62 


020 


H 


24 


052 


* 


63 


X002E780 






020 


$ 





010 


= 


10 


X002E785 






071 




21 


052 


* 


65 


X002E790 


* 


63 


052 


— 





024 


K 


2 


X002E795 






052 


* 


64 


020 


P 


21 


X002E800 


■«■ 


64 


050 


— 





020 


H 


25 


X002E805 






124 


K 


6 


024 


P 


3 


X002E810 


* 


65 


050 


-- 


— - 


120 







X002E815 






050 


Q 


15 


014 


X 


12 


X002E820 


# 


70 


120 







050 


P 


13 


X002E825 






020 


S 





010 


= 


6 


X002E830 






020 


$ 





010 


— 


52 



ERROR IF NOTHING PRECEDES 'IF' 

SET SPECIAL SPACE 

FIRE 



PICK UP DEC PT INFO FROM =20 IN TO 



ERROR IF 10 OR MORE DIGITS 

JUMP IF AT TERMINAL MINUS 

VERIFY SPACE AND ADVANCE TO NONSPACE 



VALIDATE STEP LABEL 

SET STEP NUMBER IN CONTEXT 

POP Q3 

JUMP UNLESS LAST CHARACTER WAS PERIOD 
REPLACE FINAL PERIOD BY PSEUDO-PERIOD 
JUMP IF NO CONDITION 

SET SPECIAL SPACE BEFORE 'IF' 

PACK STRING 

VERIFY TWO MORE SPACE UNITS 



FIND STEP IF CAN 

JUMP IF CAN'T 

ERASE DUPLICATE 

FIND PLACE AGAIN 

JUMP IF PART EXISTS 

COMPUTE PART (P20J FOR STEP (P21) 

SET UP PART ID IN QUO STRUCTURE 



SET UP STEP IN Q10 STRUCTURE 



RELIEVE Q15 AND SWITCH VIA X12 
CLEAR 'WTG FOR FORM' SUBSTATE 
PACK STRING 
FIND FORM IF CAN A/C P22 



X002E835 






001 


* 71 


010 


$ 


1 


JUMP IF CAN'T 


X002E840 






020 


$ 


010 


= 


57 


ERASE DUPLICATE 


X002E845 






020 


$ 


010 


= 


52 


FIND PLACE AGAIN 


X002E850 


* 


71 


020 


H 24 


052 


* 


72 




X002E855 






020 


$ 


010 


= 


10 




X002E860 






071 


21 


052 


# 


74 




X002E865 


# 


72 


052 





024 


K 


2 




X002E870 






052 


* 73 


020 


P 


22 




X002E875 


# 


73 


050 





020 


H 


25 




X002E880 






124 


K 6 


024 


P 


3 




X002E885 


# 


74 


050 





120 









X002E890 






050 


Q 15 


014 


X 


12* 


RELIEVE Q15 AND SWITCH 



VIA X12 



X003E000+ 

X003E010 

X003E020 

X003E030 

X003E050 

X003E060 

X003E070 

X003E080 

X003E090 

X003E100 

X003E110 

X003E120 

X003E130 

X003E140 

X003E150 

X003E160 

X003E170 

X003E180 

X003E190 

X003E200 

X003E210 

X003E220 

X003E230 

X003E240 

X003E250 

X003E260 

X003E270 

X003E280 

X003E500 

X003E510 

X003E520 

X003E530 

X003E540 

X003E560 

X003E570 

X003E580 

X003E590 

X003E600 



20 



010 $ 
Oil * 
020 
020 
020 

024 U 
020 - 

025 H 
010 * 
020 L 
020 L 

024 U 
020 - 

025 H 
010 
020 
020 
020 

024 U 
020 - 

025 H 
020 



L 
L 
L 




1 
3 
9 
4 
4 

1 
5 
2 
9 
4 



020 

020 

020 

010 

105 
40 020 L 

020 $ 
L 

020 S 

010 X 
50 020 L 

020 $ 
L 

020 $ 



010 * 
001 * 
001 X 
001 * 
052 $ 
024 J 
005 X 



002 
001 
052 
024 
005 



1 
5 

8 001 

4 001 

12 001 



L 11 001 
020 H 10 002 



* 

X 
* 

052 $ 

024 

001 



12 002 
4 006 
9 006 
1 
Oil $ 

12 050 H 
010 = 

13 L 
010 = 
4 

11 050 H 
010 = 

13 L 
010 = 



2 
2 

8 
3 
1 
8 
8 

20 
4 
1 
9 
9 

5 

9 

6 

1 

7 

40 

7 

50 

40 

8 

9 


12 
47 
13 
54 

12 
47 
13 
54 



014 = 25 



TASK SELECTION 

TO *1 IF 'READER READY' .ELSE TO *2 
JUMP IF NO STN WAITING FOR READER REf 
JUMP IF NO STN PUNCHING, INITIATE RE* 
TO *3 IF NO STN READING 



TO X8 IF READING IS OVERDUE. 

JUMP IF STN WAITING TO READ 
JUMP IF NO STN PUNCHING 



TO X9 IF PUNCHING IS OVERDUE 

JUMP IF NO STN WAITING TO PUNCH 

JUMP IF NO STN READING, INITIATE PUNC 

TO *6 IF NO STN WTG FOR NORMAL PROCEf 



TO *40 IF STN OVERDUE FOR PROCESSING 

TO *7 IF NO STN WTG FOR BUFFER 

TO *50 IF BUFFER AVAILABLE 

TO *40 IF STN WTG FOR PROCESSING 

JUMP IF STN READING 

JUMP IF STN PUNCHING 

NOTHING TO DO, GO BACK TO Q SERVICE 

LOOP TILL Tl TURNED OFF 

SET STN CONTEXT 

CHANGE STATE TO L13 

BRING IN PROGRAM 
FIRE • 

SET STN CONTEXT 
CHANGE STATE TO L13 

BRING IN PROGRAM 
REENTER =25 



X004E000+ 


X 


4 


010 


$ 






FIRE 


X004E010 






020 


P 10 


001 * 


2 


JUMP IF UNCONDITIONAL 


X004E020 






020 


p 1 


050 P 


11 


SAVE SETUP 


X004E030 






020 


P 2 


050 P 


12 




X004E040 






020 


A 14 


050 P 


1 




X004E050 






020 


P 10 


050 P 


2 




X004E060 






020 


$ 


010 = 


23 


EVALUATE CONDITION 


X004E070 






002 


* 1 


010 X 


5 


JUMP TO X5 ADVANCE IF 


X004E100 


* 


1 


020 


P 11 


050 P 


1 


RESTORE SETUP 


X004E110 






020 


P 12 


050 P 


2 




X004E120 


♦ 


2 


020 


$ 


010 = 


27 


INTERPRET VERB 


X004E130 






020 


* 50 


052 * 


11 




X004E140 


* 


11 


020 





005 G 





JUMP TO TRY SHORT-SET 


X004E150 






025 


H 19 


001 * 


12 




X004E160 






025 


K 1 


001 * 


13 




X004E170 


* 


12 


020 


* 11 


024 K 


2 




X004E180 






052 


* 11 


010 * 


11 




X004E190 


* 


13 


020 


* 11 


025 * 


50 




X004E200 






024 


* 51 


052 * 


9 




X004E210 


* 


9 


010 








GO TO GXXX 


X004E220 


* 


50 




* 60 








X004E230 


* 


51 




G 








X004E240 


* 


60 


000 


,0000 


•063,0524 


SET 


X004E250 






000 


»0000 


•000,4417 


DO 


X004E260 






000 


»0000 


•000,6417 


TO 


X004E270 






000 


,0004 


•417,1605 


DONE 


X004E280 






004 


.3011 


•603,0514 


CANCEL 


X004E290 






004 


»4051 


,405,2405 


DELETE 


X004E300 






000 


»0006 


•431,2005 


TYPE 


X004E310 






000 


»0005 


,411,1605 


LINE 


X004E320 






000 


»0006 


•001,0705 


PAGE 


X004E330 






000 


,0006 


,205,0104 


READ 


X004E340 






000 


♦ 0602 


,516,0310 


PUNCH 


X004E350 






000 


»0004 


•617,2215 


FORM 


X004E360 






000 


,0006 


♦324,1720 


STOP 


X004E370 






000 


»0000 


,000,4717 


GO 


XO04E380 






004 


♦ 4051 


,501,1604 


DEMAND 


X004E390 






100 


♦ 0000 


,000,0000, 





X005E000+ X 5 010 $ 

X005E010 020 Q 8 001 * 5 

X005E020 071 1 001 X 7 

X005E030 020 P 16 002 * 1 

X005E035 020 Q 9 050 P 21 

X005E040 020 $ 010 = 51 

X005E050 002 * 1 010 $ 1 

X005E060 020 H 23 001 X 7 

X005E070 020 H 26 001 X 7 

X005E080 020 H 25 010 * 1 

X005E090 * 1 052 * 2 010 $ 1 

X005E095 024 K 2 052 * 6 

X005E096 * 6 020 — 050 Q 9 

X005E100 * 2 020 001 * 4 

X005E110 * 3 050 P 16 010 X 6 

X005E120 * 4 050 P 16 010 X 7 

X005E130 * 5 020 $ 010 = 55 

X005E140 020 $ 010 = 53 

X005E150 010 X 1 



ADVANCE 

JUMP IF TASK FINISHED 

JUMP IF 'STEP' 

JUMP IF P16 STILL GOOD 

SET STEP 

FIND CURRENT STEP 

TO *1 IF FOUND 

TO X7 (ASCEND) IF DONE. 

TO X7 (ASCEND) IF DONE. 

GIMMICK TO GET NEXT 



SET 09 

SET P16 FOR NEXT STEP AND GO TO X6(FE 

SET P16-AND GO TO X7 (ASCEND) 

SWITCH TO USER — TASK COMPLETE 

KICK OUT PROGRAM 

GO BACK TO Q SERVICE. 



X006E000+ 

X006E010 

X006E020 

X006E030 

X006E035 

X006E040 

X006E050 

X006E060 

X006E070 

X006E080 

X006E090 

X006E100 

X006E110 

X006E120 

X006E140 

X006E150 

X006E160 

X006E170 

X006E180 

X006E190 

X006E200 

X006E210 

X006E220 

X006E230 

X006E240 



* 



010 
020 
020 
050 
020 
020 
020 
020 
025 
002 
025 
120 
001 
020 
010 
120 
001 
124 
002 
020 
020 
020 

020 
010 





15 

12 

9 

16 







8 

6 

3 



4 



2 



5 

35 

3 

11 

10 



12 



1 



001 
024 
010 
056 
010 
010 
010 
025 
024 
002 
145 
050 
010 

145 
050 
025 
010 
001 
001 
010 

010 



1 

32 

10 

3 

7 

1 



4 

4 

4 

35 

9 

48 



K 41 

H 9 



35 

6 

4 

4 

47 

12 

53 



FETCH 

JUMP IF NO POSTPONED »RI • 

FAKE AN 'RI • 

IN H9 AND JUMP 

UNPACK 

ADVANCE TO VERB 

READ CLOCK 

JUMP IF SHOT TIME IS UP 

JUMP IF PREFERRED PERIOD IS UP 

JUMP IF NO 'TO' 

TREAT 'TO'. BY SUBROUTINE 

LOOP BACK 

JUMP IF NO MINOR CYCLE MSG 

JUMP IF 'TO' ELSE JUMP TO CUTOFF 
JUMP IF NO Lll 
JUMP IF NO BUFFER 
CUTOFF 

KICK OUT 

JUMP TO Q SERVICE 



X007E000+ 

X007E010 

X007E020 

X007E030 

X007E040 

X007E050 

X007E060 

X007E070 

X007E080 

X007E090 

X007E100 

X007E110 

X007E120 

X007E130 

X007E140 

X007E150 

X007E160 

X007E170 

X007E180 

X007E190 

X007E200 

X007E210 

X007E220 

X007E230 

X007E240 

X007E250 

X007E260 

X007E270 

X007E280 

X007E290 

X007E300 

X007E310 

X007E320 

X007E330 

X007E340 

X007E350 

X007E355 

X007E360 

X007E370 

X007E380 

X007E390 

X007E400 

X007E410 

X007E420 

X007E430 

X007E440 

X007E450 

X007E460 

X007E470 

X007E480 

X007E490 

X007E500 

X007E510 

X007E520 



X 7 



* 1 

* 2 



* 5 

* 6 

* 10 

* 11 



* 

# 
* 

* 

* 



12 

13 
14 

15 
20 
21 
22 



* 23 

* 25 

* 24 



* 30 

* 31 



010 
020 
020 
020 
020 
020 
020 
020 
020 
010 
120 
020 
001 
002 
020 
023 
020 
052 
020 
050 
020 
001 
024 
020 
020 
020 
020 
001 
020 
020 
050 
001 
024 
020 
052 
024 
020 
020 
020 
020 
070 
050 
050 
020 
050 
020 
020 
071 
070 
071 
020 
020 
020 
004 




4 
8 


4 
8 


1 



5 



1 
11 

20 


26 
2 



9 



27 

6 

18 

40 
1 
6 

23 
1 

23 





22 
3 


21 


5 
8 
9 

21 

31 
6 




010 
050 
052 
006 
010 
050 
002 
010 
010 
052 
050 
056 
020 
010 
052 
002 
024 
010 
001 
010 
010 
052 
052 
050 
014 
050 
010 
050 
052 
056 
020 
056 
056 
024 
020 
056 
052 
010 
050 
010 
020 
020 
050 
010 
010 
010 
010 
001 
024 
002 
010 
056 
052 
020 



30 
16 

1 

3 
76 
23 

5 
55 
53 

5 
23 

4 



6 

2 

2 

1 

14 

1 

50 

13 

12 

9 

15 

21 

51 

16 

21 

22 

31 
25 

2 
22 
24 
33 
12 

3 
12 



H 23 
= 31 
$ 1 
= 13 
= 70 

* 30 
H 23 

* 30 

* 33 

* 32 

* 32 



ASCEND (OR ITERATE) ( 014=OVERFLOW ) 
RESET P16 

JUMP IF POSSIBLY MORE ITERATIONS 

ASCEND REALLY 

RESET P23 

EXIT TO X5 IF MORE TO DO ON TASK 

SWITCH TO USER 

KICK OUT PROGRAM 

EXIT TO XI FOR QUEUE SERVICE 

SET P23 

CHECK FOR TWO SPACES 



JUMP IF NO MORE ITERATIONS 
SET UP Q9 FOR NEXT ITERATION 

JUMP IF MINUS INDICATING 'STEP* 

FIND PART 
ERROR IF CAN'T 



FIND STEP 

ERROR IF CAN'T 

GET NEXT VALUE FOR ITERATION 



JUMP IF NO INCREMENT 



PUSH Q3 

PUSH Q3 

PICK UP LIMIT 

PICK UP INCREMENT 

COMPUTE NEXT VALUE 

POP Q3 

COMPARE NEW VALUE WITH LIMIT VALUE 

JUMP IF NEW VALUE EQUALS LIMIT VALUE 

JUMP IF NEW VALUE EXCEEDS LIMIT VALUE 

DELETE INCREMENT-LIMIT PAIR 



X007E530 
X007E540 
X007E550 
X007E560 
X007E610 
X007E620 
X007E630 
X007E640 
X007E650 
X007E660 
X007E670 
X007E680 
X007E690 
X007E700 
X007E710 
X007E720 
X007E730 
X007E740 
X007E750 
X007E760 
X007E770 
X007E780 
X007E790 
X007E800 
X007E810 
X007E820 



* 32 



* 33 

* 40 



* 
* 



41 
42 

43 
50 



* 51 



52 
53 



* 54 

* 55 

* 56 

* 57 

* 58 



056 - 
020 * 
050 Q 
050 - 
020 * 
020 * 
124 K 
004 Q 
060 - 
052 - 
020 * 
024 K 
020 - 
024 K 
004 - 
060 H 
056 * 
056 * 
010 * 
050 H 
001 * 
050 H 
020 - 
020 $ 
020 K 
010 X 



22 



5 
6 
6 




27 
55 
56 
55 
28 
57 
29 


4 
6 



060 
124 
020 
010 
052 
052 
070 
050 
020 
010 
052 
052 
056 
056 
052 
020 
024 
006 
020 
020 
020 
010 
050 
010 
050 



5 
22 
50 
43 
42 
21 


18 
50 
51 
52 
53 
54 
58 

1 

54 



1 
30 
73 
23 



USE LIMIT NEXT IF EQUALED OR EXCEEDED 
UPDATE CURRENT VALUE AND JUMP TO ASSI 
DELETE USED VALUE 



ASSIGN NEW VALUE 



(USING TRICKS HERE — BEWARE) 



RESET P23 
EXIT TO X6 



FETCH 



X010E000+ 




$ 










M 





X010E001 






020 


J 


21 


024 


K 


1 


X010E002 






050 


J 


21 


010 


$ 


1 


XO1OE005 






020 


H 


9 


071 




21 


XOIOEOIO 






001 


# 


10 


071 




1 


X010E015 






001 


* 


20 


071 




1 


X010E020 






001 


* 


40 


071 




1 


X010E025 






001 


* 


50 


025 


K 


1 


X010E026 






001 


# 


70 


134 


$ 





X010E030 


* 


10 


020 


H 


12 


142 


K 


29 


X010E035 






020 


I 





010 


= 


47 


X010E040 








L 


5 




L 


5 


X010E045 






020 


H 


4 


002 


* 


11 


X010E050 






020 


H 


12 


050 


H 


4 


X010E055 


* 


11 


010 


X 


1 








X010E060 


* 


20 


020 


H 


12 


142 


K 


30 


X010E065 






24 


U 





052 


# 


21 


X010E070 


* 


21 


020 


— 





124 


K 


5 


X010E075 






025 


* 


36 


001 


* 


22 


X010E080 






025 


I 


2 


001 


* 


25 


X010E085 






025 


I 


4 


001 


* 


22 


X010E090 






025 


I 


1 


001 


* 


26 


X010E095 


* 


22 


020 


L 


5 


014 


* 


23. 


XOIOEIOO 


* 


23 


020 


— 





001 


# 


24 


X010E105 






050 


T 





025 


H 


12 


X010E110 






050 


T 


1 


023 


T 


1 


X010E115 






002 


* 


27 


020 


T 





X010E120 






025 


H 


4 


050 


T 


1 


X010E125 






023 


T 


1 


002 


* 


24 


X010E130 






020 


T 





024 


U 


3 


X01OE135 






052 


* 


23 


010 


* 


23 


X010E140 


■X- 


27 


020 


T 





024 


u 


3 


X010E145 






052 


* 


28 


010 


$ 


1 


X010E150 


* 


28 


020 


— 





050 


H 


4 


X010E155 


* 


24 


020 


S 





010 


s 


58 


X010E160 






002 


# 


24 


010 


$ 


1 


X010E165 






020 


H 


12 


024 


U 


2 


X010E170 






052 


* 


32 


056 


* 


29 


X010E175 


# 


29 


56 


*• 


33 


020 


— 





X010E180 






001 


* 


34 


020 


* 


35 


X010E185 


# 


30 


052 


* 


31 


056 


* 


32 


X010E190 


* 


31 


020 


— 





001 


# 


32 


X010E195 






024 


U 


6 


010 


* 


30 


X010E200 


* 


32 


020 


— 





050 


— 


-— — 


X010E205 


* 


33 


020 


K 


4 


050 


— 





X010E206 






020 


H 


12 


024 


u 


7 


X010E207 






052 


* 


38 


020 


* 


37 


X010E208 


* 


38 


050 


— 


— — 


010 


$ 


1 


X010E210 


* 


34 


020 


$ 





010 


= 


47 


X010E215 








L 







L 





X010E220 






010 


X 


2 








X010E225 


# 


25 


120 







050 


H 


15 


X010E230 






010 


X 


2 








X010E235 


# 


26 


120 







050 


H 


16 



SIGNAL SERVICE (FROM DRUM) 
COUNT ONE INPUT 



JUMP IF '0N« 

JUMP IF «0F« 

JUMP IF »TC» 

JUMP IF «RI» 

JUMP IF H9 FLAGGED FOR INITIALS 

•0N« ERASE SIGNAL 



JUMP IF H4 SET ALREADY 

ELSE SET H4 FOR POSSIBLE Q MSG 

JUMP BACK TO Q SERVICE 

•0F« ERASE SIGNAL 



JUMP IF L3 OR L4 

JUMP IF L9 

ADJUST H4 IF NECESSARY 

NO ADJUSTMENT IF NOT IN L5. 



NO ADJUSTMENT IF DOWNSTREAM FROM 
NEXT STN FOR Q MSG 



SET SUCCESSOR IN H4 FOR NEW MSGS 
RELEASE BUFFERS ( IF ANY) 

RELEASE-DRUM TREATMENT 



JUMP IF NO DRUM ASSIGNED 



UNASSIGN STN 



RESET INITIALS IN U7 
CHANGE STATE TO LO 



SET DELAYED • OF • FOR READING 
SET DELAYED 'OF* FOR PUNCHING 



X010E240 

X010E245 

X010E250 

X010E251 

X010E255 

X010E260 

X010E265 

X010E270 

X010E275 

X010E280 

X010E285 

X010E290 

X010E295 

X010E300 

X010E305 

X010E310 

X010E315 

X010E320 

X010E325 

X010E330 

X010E335 

X010E340 

X010E345 

X010E350 

X010E355 

X010E360 

X010E365 

X010E370 

X010E375 

X010E380 

X010E385 

X010E390 

X010E395 

X010E400 

X010E405 

X010E410 

X010E415 

X010E420 

X010E425 

X010E430 

X010E435 

X010E440 

X010E445 

X010E450 

X010E455 

X010E460 

X010E465 

X010E470 

X010E475 

X010E480 

X010E485 

X010E490 

X010E495 

X010E500 

X010E505 



010 



* 35 

* 36 

* 37 

* 40 



* 45 



* 41 



2 

11 



* 42 



* 43 



* 44 



005. 

020 

020 

023 

020 

142 

020 

020 

020 

020 

020 

013 

020 



4130»270» 
H 12 142 



* 50 

* 51 

* 52 

* 53 

* 54 

* 55 

* 56 



010 
020 

010 
051 
001 
023 
031 
060 
014 
022 
022 
063 
012 
012 
034 
033 
010 
032 
013 
007 
007 
023 
021 
020 
024 
020 
024 
025 
130 



130 
130 
010 
010 
010 




13 
12 
26 

9 



010 
002 
024 
010 
141 
010 
002 
010 
050 
010 
010 



010 





1 





42 



43 

12 



44 

12 

,4211*062 
,0030*060 
,0510,342 
,4251,443 
,5463,447 
,4450,542 
,0211,461 
,4331*250 
,4430,521 
,4161*541 
,0161*502 
.0461*502 
♦0461*222 
,4450*500 
*0511*120 
,0260*341 
,0621,142 
,0211*440 
,0621,441 
,4250,662 
H 12 142 
U 052 

25 

056 
001 



* 
* 
$ 
L 
* 
* 
S 
S 
# 
X 
X 



54 

55 





56 

57 





60 

2 

2 



H 11 
L 3 
0000 
K 31 
= 54 
41 
26 
2 
1 
5 
45 
58 
12 
1 
64 
43 



= 64 

* 44 

,1416 
,7026 
,1421 
,1416 
,1016 
,3051 
,4446 
,0000 

♦ 0462 
,4445 

♦ 3416 
,4416 
,1016 
,7063 
,7046 

♦ 0462 

♦ 3045 

♦ 7047 

♦ 4422 

♦ 5200 
K 32 

* 51 

* 53 

* 52 



L 

* 56 

* 57 



THREE MINUS'S FOR UNASSIGNED DRUM 

•TO 

BRING IN USER'S BLOCK 

JUMP IF GREEN SUBSTATE WAS 

ELSE KEEP SAME BUFFER AND 

SWITCH TO USER 
READ BUFFER 
CONVERT 

JUMP IF PARTIAL INPUT LINE 
RELEASE BUFFER 

JUMP IF T3 



TRANSMIT AND SWITCH VIA X12 



TRANSMIT AND SWITCH VIA X12 

•CALL 233 FOR LATEST JOSS INFORMATION^ 



•PLEASE WIND UP YOUR WORK AND TURN OF 
AS SOON AS POSSIBLE.' 



•RI' RESET SIGNAL 



SWITCH TABLE - LO 

LI 

L2 

L3 

L4 



X010E510 
X010E515 
X010E520 
X010E525 
X010E530 
X010E535 
X010E540 
X010E545 
X010E550 
X010E555 
X010E560 
X010E570 
X010E580 
X010E590 
X010E595 
X010E600 
X010E610 
X010E620 
X010E625 
X010E630 
X010E635 
X010E640 
X010E645 
X010E650 
X010E655 
X010E660 
X010E665 
X010E670 
X010E675 
X010E680 
X010E685 
X010E690 
X010E695 
X010E700 
X010E705 
X010E710 
X010E715 
X010E720 
X010E725 
X010E730 
X010E735 
X010E740 
X010E745 
X010E750 

X010E755 
X010E760 
X010E765 
X010E770 
X010E775 
X010E780 
X010E785 
X010E790 
X010E791 
X010E792 
X010E795 



* 57 



60 
66 



* 62 



* 63 



* 64 



* 65 



* 61 



* 70 



* 71 



* 72 



* 74 



010 
010 
010 
010 
010 
130 
010 
010 
010 
010 
130 
020 
120 
020 
010 
020 
020 
020 
020 

020 
020 
020 
020 
124 
002 
020 
025 
020 
050 
020 
020 
020 
020 
020 
020 
010 
020 
020 

010 
020 
020 
020 
020 
025 
020 
075 
020 
054 
020 
006 
024 
020 
120 



2 

2 

2 

60 

2 



57 

60 

66 

57 









2 



8 





90 

16 



12 



35 

63 

1 

27 

12 

12 

1 

62 

27 



42 



12 





91 

12 

1 

5 

15 

1 

34 

1 

32 

2 

2 

71 

7 





010 
050 

010 

010 
001 
050 
010 

056 
010 
050 
010 
025 
010 
124 
001 
024 
056 
050 
010 
050 
010 
050 
010 

050 
010 



001 
002 
050 
124 
001 
004 
50 
025 
052 
050 
020 
056 
050 
050 



54 

15 
53 

54 

61 

12 

64 

90 

3 

7 

2 

2 

35 

1 

27 

65 

3 

64 

1 
11 
66 
11 
66 

12 
64 
91 

73 

73 



34 

73 





3 

72 

1 

7 

74 



L5 

L6 

L7 

L8 

L9 

L10 

Lll 

L12 

L13 

L14 

L15 

BRING IN USER BLOCK 

SET RI-FLAG FOR L11.L14 

KICK OUT USER BLOCK 

EXIT TO SIGNAL SERVICE 

BRING IN USER BLOCK 

JUMP IF DIRECT 

SET UP 'INTERRUPTED' MESSAGE 



P16 OK HERE 

UNPACK 

COPY STEP NUMBER FROM R TO S 



INSERT PERIOD 

INSERT CR+EOM 

TRANSMIT AND SWITCH VIA X12 
SET UP 'REVOKED' MESSAGE 



TRANSMIT AND SWITCH VIA X12 
(INITIALS) JUMP IF NO CHARACTERS 
JUMP IF MORE THAN FOUR CHARACTERS 
INITIALIZE 

JUMP IF NOT LETTER 



P 13 



LOOP IF MORE 

SET INITIALS IN U7 

CLEAR «WTG FOR INITIALS' SUBSTATE 



X010E800 
X010E805 
X010E810 
X010E815 
X010E820 
X010E825 
X010E850 
X010E855 
X010E860 
X010E865 
X010E870 
X010E875 
X010E880 
X010E885 
X010E890 
X010E895 
X010E900 
X010E905 
X010E910 
X010E915 
X010E920 
X010E925 
X010E999 



020 

014 

73 020 

020 



* 90 



* 91 



* 92 



010 
054 
031 
023 
064 
012 
060 
023 
023 
024 
031 
023 
012 
014 
031 
010 
007 





12 





92 

12 



♦ 5011 

♦ 4161 
»4164 
,4251 

♦ 4240 
.4641 

♦ 0450 

♦ 0160 

♦ 4161 

♦ 4251 

♦ 4430 

♦ 4331 

♦ 4630 

♦ 0161 

♦ 4620 

♦ 0554 
X 10 



010 = 22 

050 P 12 

010 = 64 

* 92 



♦ 100 

♦ 443 

♦ 000 

♦ 522 

♦ 662 

♦ 443 

♦ 520 

♦ 542 

♦ 061 

♦ 223 

♦ 521 

♦ 345 

♦ 621 

♦ 162 

♦ 525 

♦ 000 
010 



♦ 7021 

♦ 1425 

♦ 0000 

♦ 3042 

♦ 5200 

♦ 1416 

♦ 7063 

♦ 3064 

♦ 2463 

♦ 1016 

♦ 0462 

♦ 4445 

♦ 0443 

♦ 1425 

♦ 0016 
♦0000^ 
♦7000/ 



TYPE TIME LINE AT TOP OF PAGE 
SWITCH AND CARRY ON VIA X12. 
INITIALIZE 



TRANSMIT AND SWITCH VIA X12 
•I'M AT STEP* 



♦REVOKED. » 

•JUST ONE TO FOUR LETTERS PLEASE.' 
• INITIALS PLEASE- 



X011E000+ 

X011E010 

X011E020 

X011E030 

X011E040 

X011E050 

X011E060 

X011E070 

X011E072 

X011E074 

X011E075 

X011E076 

X011E078 

X011E079 

X011E080 

X011E090 

X011E100 

XOllEllO 

X011E120 

X011E130 

X011E140 

X011E145 

X011E150 

X011E160 

X011E170 

X011E180 

X011E190 

X011E200 

X011E210 

X011E220 

X011E230 

X011E240 

X011E250 

X011E260 

X011E270 

X011E280 

X011E282 

X011E284 

X011E286 

X011E290 

X011E300 

X011E305 
X011E310 
X011E320 
X011E330 
X0UE340 
X011E350 
X011E360 
X011E370 
X011E380 
X011E390 
X011E400 
X011E410 
X011E420 



$ 
1 






* 
* 
# 



* 10 



* 20 



* 21 



22 

23 



24 
27 
28 



013 
020 
020 
020 
020 
020 
010 
020 
050 
142 
020 

010 
020 
024 
020 

010 
020 
004 
020 
020 
052 
050 
052 
020 
020 
020 
020 

020 
120 
020 
020 

020 

052 
050 



29 
30 



5 

5 

11 
4 

10 
1 
1 

12 

22 


1 


21 


1 
1 
5 

29 
1 
2 

21 



010 
002 
001 
002 
001 
002 

001 
024 
010 
010 



050 
142 
010 



* 22 



K 
H 
S 
L 
L 

S 
$ 
# 

U 



4 

12 


13 
5 




28 
7 

24 



M 
$ 
* 
* 
* 
# 

# 

K 

$ 





1 
10 

3 
20 

4 
30 

2 
22 

1 
47 



12 
21 
47 

1 



050 H 12 
110*6000 



050 
024 
020 
024 
056 
050 
050 
050 
010 

050 
050 
050 
010 

024 
020 
010 



L 
H 
P 
P 

* 
H 
# 

X 



8 
12 
11 

6 
23 
11 

7 
47 
13 
4 

12 
64 
28 
12 
27 
12 



* 31 



010»0200»410*0000 
027»1413»147»1162 
007»0211»460»7070 
023»0641»220»7062 
012*4511»521»4423 
012*4331*345»4445 
014»4630»621 »0443 
031»0161»162*1425 
010*4620*525»0016 
007*0554»000»0000 
000»0000*013,1777 
020 H 4 050 H 12 
024 U 3 052 * 31 

020 050 H -4 

020 * 36 050 S 1 



DRUM 
JUMP 
JUMP 
JUMP 
JUMP 
JUMP 
JUMP 
LOOP 
JUMP 



ROUTINE FOR QUEUE SERVICE 

IF T3 ON 

Q FOR ENABLE 
NO FOR DRUM SLOT 
DRUM SLOT OPEN 
NO MSG DUE 
BUFFER AVAILABLE 

BACK TO XI 

IF NO STN IN 



IF 
IF 

IF 
IF 
IF 



LI 



DISABLE STN IN 
MOVE STN TO LO 



LI 



CONSIDER STN AT TOP OF LO 

ENABLE IT 

CHANGE STATE TO LI 

LOOP FOR MORE 

CONSIDER STN AT TOP OF L5 

INITIALIZE CORE BLOCK 

SET H8 TO KEEP TIME WORKED HONEST 

ADJUST DRUM TABLES 

ASSIGN DRUM SLOT 

BRING UP NEXT DRUM SLOT 

SET NULL SUCCESSOR TO ASSIGNED SLOT 

ESTABLISH STN AS IN CORE 

CHANGE STATE (TO POP L5) 

SET H4 FOR Q MSGS IF ANY 
CLEAR LINE NUMBER 
INITIALIZE OUTPUT LINE 
UNPACK MSG TO S 

SET TEMPORARY INITIALS $$$ 

EXIT TO X12 TO TRANSMIT REQ AND SWITC 
TEMPORARY INITIALS $$$ 
•JOSS AT YOUR SERVICE.* 
• INITIALS PLEASE- 



DRUM CW FOR INITIAL BLOCK 



X011E425 




020 


* 37 


050 


p 


12 


X011E430 




020 


$ 


010 


= 


61 


X011E440 




020 


S 


010 


= 


64 


X011E450 






* 38 




* 


38 


X011E460 




120 





050 


H 


20 


X011E470 




020 


L 5 


050 


T 





X011E480 


* 32 


020 


H 20 


024 


I 


1 


X011E490 




050 


H 20 


020 


T 





X011E500 




025 


H 12 


001 


* 


33 


X011E510 




025 


K 1 


001 


# 


35 


X011E520 


* 33 


020 


T 


024 


U 


3 


X011E530 




052 


* 34 


010 


$ 


1 


X011E540 


* 34 


020 





050 


T 





X011E550 




002 


* 32 


134 


$ 





X011E560 


* 35 


020 


$ 


010 


= 


36 


X011E570 






1 






1 


X011E580 




020 


$ 


010 


= 


64 


X011E590 






* 39 




* 


39 


X011E600 




120 





050 


P 





X011E610 




020 


$ 


010 


= 


25 


X011E615 




010 


* 3 








X011E620 


* 36 


ooo. 


»0000< 


>000- 


.0056 


X011E625 


* 37 




S 1 




S 


1 


X011E630 


* 38 


007. 


»0163< 


► 602< 


>3064 


X011E640 




007 


»0211< 


»221 ( 


• 2416 


X011E650 




022 


»4461i 


>540< 


,7045 


X011E660 




032 


»0440< 


»441( 


,2451 


X011E670 




007 


»2000. 


>000- 


,0000 


X011E680 


* 39 


007 


»0311i 


► 120- 


,7063 


X011E690 




014 


»0250, 


»342t 


,4064 


X011E700 




012< 


.4640; 


>52l! 


,5452 


X011E710 




100 


,0000. 


»000. 


,0000* 


X011E999 


/ 




X 11 


010 , 


,7000/ 



TRANSMIT Q MSG (BUFFER OPEN) 

CR 

• YOU ARE NOW NUMBER • 



• IN THE QUEUE.' 



X012E000+ 


X 12 


010 


# 


1 


010 


* 2 


TRANSMIT ( IF 010) 


X012E010 


* 1 


020 


$ 





010 


= 25 


TRANSMIT 


X012E020 


* 2 


020 


$ 





010 


= 55 


SWITCH 


X012E030 




020 


$ 





010 


= 53 


KICK OUT 


X012E040 




010 


X 


1 




» 


EXIT TO Q SERVICE 



AND SWITCH 



X014E000+ 


X 14 010 


$ 





X014E010 


020 


$ 





X0UE020 


010 


X 


5 



SPECIAL TRANSMIT THEN GO TO X5 
010 « 25 



XO15E00O+ 


X 


15 


010 


$ 











X015E010 






050 


T 





020 


H 


17 


X015E020 






065 


T 


1 


023 


T 


1 


X015E030 






002 


* 


1 


060 


H 


17 


X015E040 






110 


M 





010 


S 


1 


X015E050 


* 


1 


020 


T 





010 


M 


0, 



READ ROUTINE FROM DRUM AND EXECUTE 
SAVE ACCUMULATOR 

JUMP IF ROUTINE ALREADY IN CORE 

ELSE READ IT IN 

RESET ACCUMULATOR AND JUMP 



=000E000+ 


3 





010 $ 











READ CLOCK 


=000E010 






024 K 


2 


052 


* 


9 




=000E020 






107 





004 


H 







*=000E030 






050 H 





065 


T 







=000E040 






002 * 


1 


024 


K 


31 


ADD 2*16 I 


=000E050 


* 


1 


024 H 


1 


050 


H 


1 




=000E060 


* 


9 


010 — 


— 






* 


EXITS WITH 



001E000+ 


= 


1 


010 $ 











001E010 






024 K 


2 


052 


* 


9 


001E020 






020 P 


2 


024 


K 


3 


001E030 






052 * 


1 


054 


P 


2 


001E040 


* 


1 


020 


— 


050 


P 


1 


001E050 


# 


9 


010 — 


— 









STEP ONE CHARACTER 



LEAVES NEW CHARACTER IN ACC 



=002E000+ = 2 024 K 2 010 $ ADVANCE TO NONSPACE 
=002E010 052 * 9 010 * 1 



=003E000 


= 


3 010 $ 







ELIMINATE SPACES 


=003E010 




024 K 


2 052 * 


9 




=003E020 




020 P 


1 010 * 


3 




=003EO30 


* 


1 020 P 


2 024 K 


3 




=003E040 




052 * 


2 054 P 


2 




=003E050 


* 


2 020 — 


■ — 050 P 


1 




=003E060 


* 


3 124 A 


14 025 A 


14 




=003E070 




002 * 


1 020 P 


1 




=003E080 


* 


9 010 — 





» 


LEAVES NONSPACE 



IN ACC 



=004EOOO+ 



4 130 = h 134 = 



=005E000+ = 5 010 $ CONVERTER 

'005E010 024 K 2 052 * 9 

=005E020 * 1 020 A 42 050 R 73 FILL WITH CR+EOM+TERMINAL FROM RIGHT 

=005E030 020 * 1 014 * 3 

'005E040 * 2 020 A 42 050 

=005E050 * 3 020 * 2 025 K 1 

=005E060 056 * 2 056 * 4 

=005E070 * 4 020 * 5 004 

=005E080 065 T 023 T 

=005E090 002 * 2 020 * 6 

=005E100 065 T 023 T 

=005E105 002 * 2 010 * 10 

=005E110 * 5 *0016 SPACE 

=005E115 * 6 ,0103 STRIKE OUT 

=005E120 * 10 020 J 12 050 P 2 

=005E130 * 11 020 K 4 050 P 10 CLEAR »IF» 

=005E140 * 12 020 $ 010 * 20 

=005E150 * 13 020 P 1 124 A 14 SPACE 

=005E160 025 A 14 001 * 14 

=005E170 * 15 020 $ 010 * 20 

'005E180 020 P 1 124 A 25 I 

=005E190 025 A 25 001 * 13 

=005E200 020 S 010 * 20 

=005E210 020 P 1 124 A 22 F 

=005E220 025 A 22 001 * 13 

=005E230 020 $ 010 * 20 

=005E240 020 P 1 124 A 14 SPACE 

'005E250 025 A 14 001 * 14 

=005E260 020 P 2 050 P 10 RECORD 'IF' BY LOCN OF FOLLOWING SPAC 

=005E270 010 * 15 

'005E280 * 14 020 P 1 124 A 66 

=005E290 025 A 66 001 * 12 

:005E300 010 * 11 CLEAR 'IF' IF QUOTE 

:005E310 * 20 024 K 2 052 * 29 

=005E320 020 P 2 024 K 3 

=005E330 050 P 2 056 * 21 

;005E340 * 21 056 * 23 020 

=005E350 024 J 13 056 * 22 

'005E360 * 22 001 * 24 020 

=005E370 * 23 050 P 1 050 

=005E380 * 29 010 EXIT FROM *20 

=005E390 * 24 020 P 2 025 K 3 

=005E400 050 P 2 052 * 25 

=005E410 * 25 020 050 P 1 

=005E420 * 9 010 » EXIT WITH LAST CHAR IN CONTEXT AND AC 



006E000+ 


= 


6 


010 


$ 











PACKER 


006E010 






024 


K 


2 


052 


# 


9 


LEAVES LINK TO STRING 


006E030 






020 


R 


1 


001 


* 


8 


TO *8 IF VACUOUS 


006E040 






020 


Q 





056 


Q 


15 


SET 


006E050 






020 


J 


12 


050 


P 


2 




006E060 






020 


$ 





010 


= 


1 




006E070 


* 


1 


020 


$ 





010 


= 


10 




006E080 






056 


* 


3 


024 


K 


1 




006E090 






056 


* 


2 


070 









006E100 






020 


$ 





010 


* 


20 




006E110 






020 


$ 





010 


* 


20 




006E120 






020 


$ 





010 


* 


20 




006E130 






020 


$ 





010 


# 


20 




006E140 






060 


T 





071 




12 




006E150 






50 


T 


1 


070 









006E160 






020 


$ 





010 


* 


20 




006E170 






020 


$ 





010 


* 


20 




006E180 






020 


$ 





010 


# 


20 




006E190 






020 


$ 





010 


* 


20 




006E200 






020 


$ 





010 


# 


20 




006E210 






060 


T 





010 


$ 


1 




006E220 


* 


2 


071 




5 


050 


— 







006E230 






020 


P 


1 


001 


* 


3 




006E240 






020 








056 


T 


1 




006E250 


* 


3 


020 


T 


1 


050 


— 


— - 




006E260 






020 


P 


1 


002 


* 


1 




006E270 


* 


8 


020 


Q 


15 


050 


P 


3 


POSITION OUTPUT IN P3 


006E280 


* 


9 


010 


— 













006E290 


* 


20 


024 


K 


2 


052 


* 


29 




006E300 






120 







075 




7 




006E310 






020 


P 


1 


124 


K 


17 




006E320 






064 


T 





004 


T 







006E330 






020 


P 


2 


024 


K 


3 




006E340 






052 


* 


21 


054 


P 


2 




006E350 


* 


21 


020 


— 





050 


P 


1 




006E360 


* 


29 


010 


— 









* 





IN P3 AND ACC. 



=007E000+ 
=007E010 
>=007E020 
=007E025 
=007E030 
=007E035 
=007E040 
=007E050 
=007E060 
=007E070 
=007E080 
=007E090 
=007E100 
=007E110 
=007E120 
=007E130 
=007E140 
=007E150 
=007E160 
=007E170 
=007E180 
=007E190 
=007E200 
=007E210 
=007E230 
=007E240 
=007E245 
=007E250 
=007E260 
=007E270 
=007E280 
=007E290 
=007E300 
=007E310 
=007E320 
=007E330 
=007E340 
=007E350 
=007E370 



5 
6 



024 
024 
006 
010 
052 
050 
020 

1 023 
020 

2 020 
056 

3 056 
020 S 
020 $ 
020 $ 
020 $ 
075 

4 056 T 
020 $ 
020 $ 
020 $ 
020 $ 
020 $ 
023 T 

20 050 

21 124 
056 
020 

22 052 

23 050 
124 

9 001 
124 
074 
020 
020 
050 

24 020 
29 



4 

2 

5 

6 

23 

2 

3 



42 



3 

4 

1 

1 

1 

1 

12 



1 

1 

1 

1 

1 



29 

17 

22 

23 

23 



A 45 



6 

21 

2 

1 

10 

1 



010 
052 
020 
020 
020 
050 
050 
001 
010 
010 
024 
004 
010 
010 
010 
010 
010 
004 
010 
010 
010 
010 
010 
014 
075 
024 
010 
024 
020 
002 
025 
020 
050 
056 
001 
024 
010 
050 



* 
J 

s 

K 

P 

T 
* 

$ 
K 

* 
* 

* 
* 
$ 

* 
# 

J 

$ 
K 

* 

A 
# 

T 

T 
# 

K. 
* 

P 




9 

12 

4 

10 

2 

21 
1 
1 

20 
20 
20 
20 
1 

20 

20 

20 

20 

20 

1 

7 

13 

1 

2 

29 

45 

23 

1 

1 

24 

43 

29 

2 



UNPACK TO R(IF 010)» TO S(IF 014). 



PICK UP SOURCE FROM P3. 

TO *2 IF MORE 

SUPPLY CR+EOM AND EXIT VIA *21. 



EXIT 

JUMP IF P2 NOT SET 
SET P10 



=008E000+ = 8 010 $ ASSIGN BUFFER TO STN 

=008E010 024 K 2 052 * 9 

=008E020 020 H 10 050 H 13 SET H13 

=008E030 001 * 9 024 U 5 EXIT MINUS IF NO BUFFER AVAILABLE 

=008E040 052 * 1 056 * 5 

=008E050 * 1 020 050 H 10 UPDATE H10 

=008E060 021 J 16 050 T 

=008E070 020 H 12 024 U 1 

=008E080 052 * 2 056 * 6 

=008E090 * 2 020 002 * 4 

=008E100 020 H 12 050 T 1 SET BUFFER BITS IN SCR FOR NEW BUFFER 

=008E110 020 H 13 052 T 1 

=008E120 020 T 1 142 K 16 

=008E130 010 * 5 

=008E140 * 3 020 001 * 5 

=008E150 * 4 024 U 5 052 * 3 

=008E160 056 * 6 020 T 

=008E170 024 I 1 050 T 

=008E180 001 * 3 020 H 13 

=008E190 050 H 10 020 K 4 BACKTRACK - STN ALREADY HAS LIMIT 

=008E200 050 H 13 010 * 9 

=008E210 * 5 020 K 4 050 SET SUCCESSOR TO -1. 

=008E220 * 6 020 H 13 050 PUT NEW BUFFER ON END OF LIST FOR STN 

=008E230 * 9 010 >- * EXIT WITH BUFFER (OR-1) IN H13 AND AC 



'009EOOO+ 



= 9 130 = 9 134 = 



=010E000+ = 10 024 K 2 010 $ DEAL OUT A STORAGE SPACE 

=010E010 

=010E020 

=010E030 * 

=010E0A0 050 Q 020 T LEAVES ADDR IN R(ACC) 

=010E050 * 



024 K 


2 010 


$ 





DEAL 


052 * 


9 020 


Q 







001 E 


056 


* 


1 




050 T 


020 


— 


— 




050 Q 


020 


T 





LEAVES 


010 — 


— 




* 





=011E000+ = 11 024 K 2 010 $ UNPACK <Q3) TO P4»P5*P6. 

=011E010 

=011E020 

=011E030 

=011E040 

=011E050 

=011E060 

=011E070 

=011E080 

=011E090 

=011E100 * 9 010 



024 K 


2 010 $ 





UNPACK 


052 * 


9 020 P 


4 




050 P 


7 020 P 


5 




050 P 


8 020 P 


6 




050 P 


9 020 Q 


3 




124 K 


11 071 


1 




072 


1 050 P 


4 




020 Q 


3 124 K 


12 




050 P 


5 020 Q 


3 




124 K 


13 050 P 


6 





=012E000+ = 12 004 * 92 010 * PUSH Q2-Q3 OPERANDS 



=013E000 = 13 004 * 92 010 * 10 POP Q2-Q3 OPERANDS 



=014EOOO = 14 004 * 94 010 * PUSH Q4-Q5 OPERATORS 



=015E000 = 15 004 * 94 010 * 10 POP Q4-Q5 OPERATORS 



=016E000 



= 16 004 * 96 010 * 



PUSH Q6-Q7 AUXILIARY 



=017E000 



= 17 00* * 96 010 * 10 



POP G6-Q7 AUXILIARY 



=018E000 = 18 004 * 98 010 * PUSH Q8-Q9 CONTROLS 



=019EOO0 


= 


19 


004 


* 


98 


010 


* 


10 


=019E010 


* 





024 


K 


2 


052 


# 


9 


=019E020 






060 


T 





056 


* 


1 


=019E030 






052 


* 


2 


024 


K 


3 


=019E040 






052 


* 


5 


020 


Q 





=019E050 


* 


1 


001 


E 





004 


— 





=019E060 


* 


2 


050 


— 





056 


* 


3 


=019E070 






056 


* 


4 


024 


K 


1 


=019E080 


* 


3 


056 


* 


5 


020 


— 





=019E090 


* 


4 


050 


Q 





060 


— 





=019E100 


# 


5 


020 


-- 





050 


— 





=019E110 


* 


9 


010 


— 


.- — 








=019E120 


* 


10 


024 


K 


2 


052 


# 


19 


=019E130 






060 


T 





052 


* 


11 


=019E140 






052 


* 


13 


024 


K 


3 


=019E150 






052 


# 


14 


004 


Q 





=019E160 


* 


11 


020 


— 


— 


124 


K 


5 


=019E170 






050 


Q 





056 


* 


12 


=019E180 






056 


# 


14 


024 


K 


1 


=019E190 


* 


12 


056 


* 


13 


020 


— - 


.__ 


=019E200 


# 


13 


050 


— 





020 


— 


-—— 


=019E210 


* 


14 


050 


— 





060 


— 


•— — 


=019E220 


* 


19 


010 


— 


- — 








=019E230 


* 


92 




Q 


2 




Q 


2 


=019E240 


* 


94 




Q 


4 




Q 


4 


=019E250 


* 


96 




Q 


6 




Q 


6 


=019E260 


# 


98 




Q 


8 




Q 


8* 



POP Q8-Q9 CONTROLS 



:020E000+ 

:020E010 

•020E020 

=020E030 

;020E040 

=020E050 

=020E060 

=020E070 

:020E080 

=020E090 

=020E100 

=020E110 

=020E120 

=020E130 

=020E140 

= 020E150 

=020E160 

=020E170 

=020E180 

=020E190 

=020E200 

=020E210 

'020E220 

'020E230 

=020E240 

=020E250 

=020E260 

=020E270 

=020E280 

=020E290 

=020E300 

=020E310 

= 020E320 

=020E330 

=020E340 

=020E350 

=020E360 

=020E370 

=020E380 

=020E390 

=020E400 

=020E410 

=020E420 

=020E430 

=020E440 



20 



* 1 

* 2 



* 3 



* 4 

* 10 

* 11 

* 12 



13 
14 
15 
9 
90 
99 



P 
T 
P 
A 
P 
T 



* 
P 
P 

T 
P 

T 

* 

T 
* 
* 

P 
P 




2 


4 

1 


90 
5 
1 
2 


90 
5 



010 S 

024 K 
020 $ 
120 
020 K 
050 T 
020 P 
020 $ 
124 * 
001 * 

025 K 
020 P 
020 $ 
124 * 
001 
020 
025 
006 
073 
073 
050 
020 
020 
025 
020 
020 
020 K 
010 * 
002 
020 
023 
020 
020 
025 
073 
020 
024 
001 
052 
032 
020 
024 

010 

000,0000 

9 



2 

1 

4 

2 

1 

6 



1 

27 

2 

3 

3 

3 

3 

6 

6 



2 

3 

31 

99 

3 

14 

13 

4 
6 



052 
010 
050 
050 
050 
010 
010 
025 
050 
001 
050 
010 
025 
050 
025 
025 
020 
024 
024 
010 
002 
124 
001 
050 
001 
050 
021 
010 
001 
006 
002 
025 
025 
050 
025 
024 
024 
004 
060 
125 
050 

.001 



9 

12 

1 



6 
3 
2 
1 
35 
6 
1 
3 

= 1 
K 35 
T 2 



3 

99 

6 

6 

2 

3 

10 

27 

10 



1 

1 

2 

5 

6 

15 

12 

3 

1 

4 

2 

1 

11 

6 

6 

3 



EVALUATE DECIMAL EXPRESSION (UNSIGNED 

PUSH Q3 
INITIALIZE 



ADVANCE (DOESN'T DISTURB T'S) 

JUMP IF NOT DIGIT 

LOOP IF '0« 

RECORD LOON OF MOST SIGNIF DIGIT 

ADVANCE 

JUMP IF NOT DIGIT 



JUMP IF ALREADY NINE SIGNIF. DIGITS 

JUMP IF END OF FIELD 

JUMP IF END OF FIELD 

LOOP IF MSD NOT YET FOUND 

CHANGE Tl 

LOOP // 

LOOP IF 'O* ELSE TOO MANY SIGNIF. DIG 

ERROR IF NO DIGITS 

JUMP IF ZERO RESULT 

JUMP IF DECIMAL POINT 

SPECIAL FOR INTEGER 

(MUST USE RIGHT FIELD) 

SET XP OF RESULT 

JUMP IF DP OF RESULT OK 



♦ 0017 
9» 



SPECIAL MASK FOR DIGIT AND VALUE 



=O21E00O+ 

=021E010 

'=021E020 

=021E030 

=021E040 

=021E050 

=021E060 

=021E070 

=021E080 

=021E090 

=021E100 

=021E110 

=021E120 

=021E130 

=021E140 

=02lE150 

=021E160 

=021E170 

=021E180 

=021E190 

=021E200 

=021E210 

=021E220 

=021E230 

=021E235 

=021E240 

=021E245 

=021E250 

=021E255 

=021E260 

=021E265 

=021E270 

=021E275 

=021E280 

=021E285 

=021E290 

=021E300 

=021E310 

=021E330 

=021E340 

=021E350 

=021E370 

=021E380 

=021E390 

=021E400 

=021E410 

=021E420 

=021E430 

=021E440 

=021E450 

=021E615 

=021E620 

=021E625 

'=021E630 



= 21 



* 
# 



* 22 

* 2 



* 3 

* 4 

* 5 

* 6 

* 15 

* 16 

* 7 

* 8 

* 10 



* 11 

* 12 

* 29 

* 13 

* 14 

* 20 



124 K 

024 K 
020 $ 
020 H 
020 $ 
124 K 

001 * 
020 $ 
120 
020 $ 
020 P 
020 $ 
020 P 
001 
001 
001 
124 
002 
124 
002 
020 
052 
020 - 
124 K 

002 * 
052 * 
020 - 
020 $ 
020 - 
010 
124 
006 
124 
002 
050 H 
050 H 
020 $ 
020 * 
020 $ 
020 P 
020 * 
020 $ 
020 P 
002 * 
032 N 
004 P 
020 K 
020 * 
020 $ 
020 $ 
020 P 

025 K 
020 Q 
025 K 



6 
2 


18 


29 
2 



1 

1 
8 
3 
7 

27 
7 

68 

10 
2 
4 

34 

13 

5 



29 
96 
16 

31 
28 

27 

28 


14 

1 
1 



11 
8 


14 

14 


1 

30 
5 

30 



010 

050 

010 

050 

010 

025 

010. 

010 

050 

010 

050 

010 

071 

071 

071 

020 

025 

020 

025 

010 

024 

010 

050 

025 

020 

052 

005 

010 

050 

020 

025 

020 

025 

020 

020 

010 

010 

010 

010 

050 

010 

010 

025 

004 

014 

032 

064 

010 

010 

010 

124 

001 

124 

001 



$ 
H 18 
= 14 
Q 5 
= 3 
K 29 



EVALUATE EXPRESSION 



STACK EXIT IN OPERATORS 
ELIMINATE SPACES 



$ 



Q 



Q 



Q 



1 

12 
3 

14 
5 
2 

23 
3 
1 
1 

27 
1 

68 
6 
2 
1 


34 
1 
6 

15 

12 
3 


96 




K 31 
P 1 



4 

2 

20 

3 

14 

5 

2 

12 

1 



12 

7 

3 

2 

24 

26 

30 

23 

30 

21 



ADVANCE 

TO *8 IF LEFT GROUPER 
TO *3 IF LETTER 
TO *7 IF DIGIT 

TO *7 IF DEC PT 

TO *10 IF CC = •$• ELSE MALFORMED 
LETTER 

PICK UP LOOK AHEAD CHARACTER 

JUMP IF LETTER (HENCE FUNCTION) 

JUMP IF NOT SCALAR 
PUSH Q3 



JUMP IF ABS VAL BAR 

JUMP IF •(• OR LEFT BRACKET 
ERROR— SET H27 AND H28 FOR E2 

CONVERT NUMBER 

ELIMINATE SPACES AND CONTINUE AT *20 

STACK LEFT GROUPER 

ADVANCE TO NONSPACE AND CONTINUE AT * 
CONVERT S 



ADVANCE TO NONSPACE AND CONTINUE AT * 

FUNCTION 

EVALUATE GROUPED LIST 

K?0 <^ AtfiTH oP^c fi~rof< 



=021E635 020 P 1 124 K 37 

=021E640 050 T 020 Q 5 

=021E645 124 K 37 025 T 

=021E650 002 * 24 010 $ 1 

=021E655 * 21 020 $ 010 = 14 STACK OPERATOR 

•021E660 020 P 1 050 Q 5 

'021E665 010 * 22 

=021E670 * 23 020 Q 5 124 K 30 

:021E675 025 K 30 001 * 26 

=021E680 * 24 020 Q 5 052 * 25 

;021E685 020 $ 024 K 2 

=021E690 * 25 010 FIRE OPERATOR 

=021E695 020 * 14 010 = 15 POP OPERATOR AND CONTINUE AT *20 

'021E705 * 26 020 Q 5 124 K 31 

; 021E710 025 K 31 001 * 30 JUMP TO EXIT IF NOT LEFT GROUPER 

:021E712 020 $ 010 = 77 MATCH GROUPERS 

'021E714 020 P 1 124 A 96 

'021E716 025 A 96 001 * 29 

:021E718 020 Q 3 125 K 12 TAKE ABS VAL 

=021E720 050 Q 3 010 * 29 

•021E724 * 30 020 Q 5 052 * 27 

=021E726 020 $ 010 = 15 POP Q5 

=02lE730 * 27 010 EXIT 

=021E735 * 28 020 $ 010 = 14 SUBSCRIPT 

=021E740 020 P 1 124 K 17 

•021E745 024 * 90 050 Q 5 

=021E750 020 $ 010 = 1 

=021E755 010 * 14 

=021E760 * 90 000 = 74 440 » 



=022E000+ = 22 010 $ 010 * 1 TYPE TIME LINE (ENTER RT SUPPRESSES E 

=022E010 050 * 90 010 $ 1 

=022E020 020 A 31 050 S 1 

=022E030 020 S 024 K 3 

=022E040 050 P 12 010 * 2 

=022E050 * 1 050 * 90 010 S 1 

=022E060 020 S 050 P 12 

=022E070 * 2 020 $ 010 = 61 TIME 

=022E080 020 $ 010 = 62 SPACE 

=022E090 020 $ 010 = 64 DATE 

=022E100 H 2 H 2 

=022E110 020 $ 010 = 62 SPACE 

=022E120 020 $ 010 = 64 INITIALS 

=022E130 Z Z 

=022E140 020 $ 010 = 64 SIX CR»S AND EOM 

=022E150 * 91 * 91 

=022E160 120 050 P RESET LINE COUNTER 

=022E170 020 * 90 010 = 25 EXIT VIA=25 TO OUTPUT LINE FROM S 

= 022E180 * 90 LINK 

=022E190 * 91 027»0561»342»7056 
=022E200 025»20O0»000»O0O0» 



=023E000+ 

=023E010 

=023E020 

=023E030 

=023E040 

=023E050 

=023E060 

=023E070 

=023E080 

=023E090 

=023E100 

=023E110 

=023E120 

=023E130 

'023E140 

=023E150 

=023E160 

=023E170 

=023E180 

=023E190 

=023E200 

=023E210 

'023E220 

=023E230 

=023E240 

=023E245 

=023E250 

=023E260 

=023E270 

=023E280 

=023E290 

=023E300 

=023E310 

=023E320 

=023E322 

:023E324 

=023E330 

=023E340 

=023E350 

=023E360 

=023E370 

=023E380 



23 010 $ 

024 K 2 052 * 9 
120 055 * 4 

120 050 * 50 
020 $ 010 = 21 

1 020 Q 3 050 * 51 
020 $ 010 = 13 
020 P 1 124 K 33 

025 K 33 001 E 6 
020 P 1 050 * 52 
020 $ 010 = 1 
020 $ 010 = 21 
020 * 51 050 H 21 
020 Q 3 050 H 22 
020 $ 010 = 70 
124 * 52 025 K 1 

001 * 2 010 * 3 

2 020 K 4 050 * 50 

3 020 P 1 124 K 33 
025 K 33 002 * 1 
020 $ 010 = 13 

4 020 * 50 * 8 

050 * 53 010 S 1 

8 020 P 1 124 A109 
025 A109 002 * 7 
020 $ 010 = 79 
020 $ 010 = 27 
025 W 14 050 T 
023 T 002 * 5 
020 H 19 025 W 15 
050 T 023 T 

002 * 6 010 E 6 

5 020 K 35 014 * 6 

6 020 K 34 055 * 4 
020 $ 010 = 39 
010 * 

7 020 * 53 010 $ 1 

9 010 

50 

51 . 

5 2 

53 , 



EVALUATE CONDITION 

SET SWITCH (ALWAYS SAVE FIRST RESULT) 
SET SIGNAL + 
EVALUATE EXPRESSION 
»AVE IT 
POP Q3 

MALFORMED IF NOT RELATION 

SAVE IT 

STEP ONE 

EVALUATE EXPRESSION 



COMPARE 



SET - IF NOT MET 

JUMP IF ANOTHER RELATION 

POP 03 

SWITCH 

STORE NEW RESULT 

JUMP IF PERIOD 

VERIFY PRECEDING SPACE 

ACCUMULATE WORD 

JUMP IF 'OR* 



JUMP IF 'AND* ELSE MALFORMED 

OR 

AND 

VERIFY SPACE AND ADVANCE TO NONSPACE 



EXIT 
SIGNAL 

LEADING TERM 
RELATION 
FINAL SIGNAL 



024E000+ 


= 


24 


010 


$ 






CONVERT FUNCTION TO OPERAT 


024E010 






024 


K 2 


052 


* 9 




024E020 






020 


$ 


010 


= 14 




024E030 






020 


S 


010 


= 27 




024E040 






050 


T 


004 


K 2 




024E050 






020 


* 50 


052 


* 1 




024E060 


* 


1 


020 





001 


E 6 




024E070 






025 


T 


001 


* 2 




024E080 






025 


K 1 


005 


* 3 




024E090 


# 


2 


020 


* 1 


064 


* 1 




024E100 


# 


3 


010 


* 1 


020 


* 1 




024E110 






124 


K 6 


025 


* 50 




024E120 






024 


* 51 


050 


Q 5 


STACK FN AS OPERATOR IN 05 


024E130 


# 


9 


010 











024E140 


# 


50 




* 60 








024E150 


* 


51 




F 


440 






024E160 


* 


60 


000' 


,0002, 


>321, 


,2224 


SORT (ORDERED SAME AS F'S) 


024E170 






ooo. 


►0000, 


,014- 


,1707 


LOG 


024E180 






000. 


,0000, 


,005, 


,3020 


EXP 


024E190 






000: 


»oooo. 


»023, 


,1116 


SIN 


024E200 






ooo. 


,0000; 


,003, 


,1723 


COS 


024E210 






000: 


,0000, 


,000, 


,1120 


IP 


024E220 






000; 


,0000, 


,000, 


,0620 


FP 


024E230 






000, 


,0000. 


,000, 


,3020 


XP 


024E240 






000< 


,0000, 


,000, 


,0420 


DP 


024E250 






000, 


,0000, 


,023, 


,0716 


SGN 


024E260 






000. 


,0000, 


,001- 


,2207 


ARG 


024E270 






ooo. 


,0000, 


,015, 


,0130 


MAX 


024E280 






ooo. 


,0000, 


>015i 


.1116 


MIN 


024E290 






100, 


,0000, 


,000, 


,0000* 





=025EOOO+ 

=025E010 

=025E020 

=025E030 

=025E040 

'025E050 

=025E060 

=025E070 

=025E080 

=025E090 

=025E100 

=025E110 

=025E120 

'025E130 

=025E140 

'025E150 

=025E155 

=025E160 

=025E170 

=025E172 

=025E180 

=025E190 

=025E200 



25 



010 


$ 





010 


* 


1 


024 


K 


2 


052 


P 


14 


020 


$ 





010 


= 


8 


001 


* 


3 


140 


s 


1 


020 


H 


12 


024 


u 


1 


052 


* 


2 


020 


H 


13 


025 


— 





001 


* 


5 


025 


K 


1 


002 


# 


5 


020 


H 


12 


024 


K 


24 


142 


K 


24 


010 


* 


5 


020 


H 


10 


001 


# 


4 


020 


$ 





010 


= 


47 




L 


14 




L 


14 


010 


* 


6 








020 


$ 





010 


= 


47 




L 


11 




L 


11 


020 


$ 





010 


= 


53 


010 


X 


1 








020 


J 


22 


04 


I 


1 


064 


J 


22 


020 


P 





064 


P 





025 


J 


2 


001 


P 


14 


020 


P 


14 


025 


K 


2 


010 


= 


22. 



OUTPUT LINE FROM S BLOCK TO STN 
SET EXIT IN P14 (INITIAL ENTRY) 
ASSIGN BUFFER (REENTRY POINT) 
LOAD BUFFER IF ASSIGNED 



EXIT VIA P14 IF 
EXIT VIA P14 IF 
OK TO TRANSMIT 
EXIT VIA P14 



CAN'T 
CAN'T 



TL 
TL 



YET 
YET 



CHOKED-CHANGE STATE TO L14 



Q FOR BUFFER AND PREFERRED PROCESSINC 

KICK OUT PROGRAM 
EXIT TO EXECUTIVE 
COUNT ONE OUTPUT 
COUNT ONE LINE NUMBER 



EXIT VIA=22 IF NEW PAGE NEEDED 



=026E000+ 
=026E010 
( =026E020 
=026E030 
=026E040 
=026E045 
=026E050 
=026E055 
=026E060 
=026E070 
=026E080 
=026E090 
=026E100 
=026E110 
=026E120 
=026E130 
=026E140 
=026E150 
=026E160 
=026E170 
=026E180 
=026E190 
=026E195 
=026E200 
=026E210 
=026E220 



= 26 



124 
024 
020 
020 
020 
025 
020 
025 
020 
020 
020 
020 
020 
025 
020 
025 
020 
020 
020 
020 
010 
020 
020 
020 
020 
010 



6 
2 


18 
1 

73 
1 



A123 




1 


1 

59 
5 

59 


3 

2 


5 




010 
050 
010 
050 
124 
002 
124 
001 
010 
050 
010 
010 
124 
002 
124 
001 
010 
010 
050 
010 

010 
010 
052 

010 




18 
14 

5 
73 

1 



A123 
E 6 
= 14 



Q 



Q 



* 



5 

1 
21 
59 

1 
59 

3 
15 
16 

7 
13 

77 
2 
9 

15 



EVALUATE GROUPED LIST 
RESULT IN Q3 AND AUX 

STACK EXIT IN OPERATORS 



MALFORMED IF NOT LEFT PAREN OR BRACKI 

PUSH OPERATORS 

STACK CHARACTER IN OPERATORS 

ADVANCE 

EVALUATE EXPRESSION 

JUMP IF COMMA 

JUMP IF PREV OPERATOR NOT COMMA 

POP COMMA 

PUSH AUX 

SAVE VALUE OF EXPR IN AUX 

POP 03 

MATCH GROUPERS 
ADVANCE TO NONSPACE 

POP Q5 
EXIT 



=027E000+ = 27 OlO $ ACCUMULATE LETTER CODES (6 MAX) 

=027EOlO 024 K 2 052 * 9 RESULT IN ACC WITH SCAN ADVANCED 

=027E020 

=027E030 * 

=027E040 

=027E050 

=027E060 

=027E070 

=027E080 

=027E090 * 

=027E100 

=027E110 * 3 001 * 1 020 H 19 LEAVE RESULT IN ACC AND H19 

=027E120 * 9 010 



024 


K 


2 


052 


* 


9 


120 







050 


H 


19 


020 


P 


1 


124 


K 


34 


025 


K 


34 


005 


* 


3 


020 


H 


19 


004 


P 


1 


077 




6 


050 


H 


19 


020 


P 


2 


024 


K 


3 


054 


P 


2 


052 


# 


2 


020 


— 





050 


P 


1 


020 


H 


19 


025 


K 


12 


001 


* 


1 


020 


H 


19 



=028E000+ 


= 


28 


010 


$ 











=028E010 






024 


K 


2 


052 


•* 


9 


=028E020 






060 


T 





124 


K 


6 


=028E030 






050 


T 





010 


$ 


1 


=028E040 


* 


1 


023 


T 





002 


* 


9 


=028E050 






020 


T 





052 


* 


2 


=028E060 






052 


* 


3 


070 




21 


=028E070 






004 


Q 





050 


Q 





=028E080 


* 


2 


020 


— 





052 


T 





=028E090 


* 


3 


060 


— 





010 


* 


1 


=028E100 


* 


9 


010 


— 












ERASE LEFT LINKED LIST A/C MQ 



029E000+ 


= 


29 


010 


$ 











029E010 






024 


K 


2 


052 


* 


9 


029E020 






060 


T 





124 


K 


5 


029E030 






050 


T 





010 


$ 


1 


029E040 


* 


1 


023 


T 





002 


* 


9 


029E050 






020 


T 





056 


# 


2 


029E060 






056 


* 


3 


004 


Q 





029E070 


* 


2 


050 


Q 





020 


— 


— 


029E080 


# 


3 


056 


T 





060 


— 


— 


029E090 






010 


# 


1 








029E100 


* 


9 


010 


— 


— 









ERASE RIGHT LINKED LIST A/C MQ 



=030E000+ = 30 010 $ CHECK RANGE AND PACK RESULT 

=030E010 024 K 2 052 * 9 

=030E015 023 P 6 006 * 3 CHK FOR ZERO 

=030E020 020 P 4 005 * 1 

=030E030 025 * 90 005 * 2 

=030E040 * 1 010 E 1 024 * 91 

=030E050 006 * 2 120 

=030E060 * 2 014 * 3 020 P 4 

=030E070 024 P 5 024 P 6 

=030E080 * 3 125 K 4 050 Q 3 

= 030E090 * 9 010 ■- 

=030E100 * 90+ 100 8 

=030E110 * 91+ 99 8. 



=031E000+ = 31 010 $ ADD 

=031E010 024 K 2 052 * 9 

=031E020 020 $ 010 = 11 UNPACK 2ND OPERAND 

=031E030 020 * 1 010 = 13 POP Q3 AND MERGE WITH =32 



=032E000 
=032E010 
=032E020 
=032E030 
=032E040 
=032E050 
=032E060 
=032E070 
=032E080 
=032E090 
=032E100 
=032E110 
=032E120 
=032E130 
=032E140 
'032E150 
=032E160 
=032E170 
=032E180 
=032E190 
=032E200 
=032E210 
=032E220 
=032E230 
=032E240 
=032E250 
=032E260 
=032E270 
=032E280 
=032E290 
=032E340 
=032E350 
=032E360 
=032E370 
=032E380 
=032E390 
=032E400 
=032E410 
=032E420 
=032E430 
=032E440 
=032E450 
=032E452 
=032E454 
=032E456 
=032E458 
=032E460 
=032E465 
=032E470 
=032E480 
=032E490 
=032E500 
=032E510 



= 32 



* 1 



* 2 



* 3 



* 4 



* 5 



* 10 



* 11 



010 $ 

24 K 

020 $ 

020 K 

050 P 

020 $ 

23 P 

023 Q 

020 $ 

020 

001 

002 

025 

020 

050 

020 

050 

020 

050 

020 

071 

021 

020 

025 

024 

024 

004 

020 

036 

050 

023 

023 



2 

3 
9 
4 

7 
5 



9 
5 
9 
9 
4 



P 
P 
T 
T 
T 



050 Q 



* 12 



* 13 



* 14 

* 8 

* 9 

* 90 + 

* 91 + 

* 92 + 



020 
002 
032 
060 
036 
025 
060 
002 
020 
060 
001 

024 
120 
060 T 
072 
020 $ 
010 — 

200 
1999 



T 
* 

T 
T 
T 
K 
T 
* 

P 

T 
* 

K 



90 002 

90 072 

11 052 

■ — 060 

077 

044 

060 

001 

001 

010 

025 



2 
3 
1 





2 052 * 
010 = 

12 025 P 

5 010 $ 
010 = 

6 002 * 

3 002 * 
010 = 

4 025 
025 
020 
002 
004 
060 
004 

8 060 
6 004 

060 

024 

002 

050 

025 



9 
6 
2 
1 
2 
3 
1 
13 004 N 



044 T 

004 N 

020 P 

14 050 P 

3 025 * 

13 032 N 

4 010 * 
3 025 * 

14 020 P 
14 050 P 

044 N 
3 024 K 

1 050 P 
010 = 

11 
000000 
999999 



9 
11 

5 

1 
13 

9 

8 
11 

7 

1 

6 

3 

7 

4 

8 

5 

9 

6 

8 

4 

9 

7 

8 
10 

5 



1 



1 
11 
11 

9 
91 

1 



1 

4 

4 
91 

1 
12 
92 

4 

4 

1 

1 

6 
30 

8 
39 
39» 



SUBTRACT 

UNPACK 2ND OPERAND 

INVERT SIGN OF 2ND OPERAND 

POP Q3 

DONE IF 2ND OPERAND IS ZERO 
PACK UP IF 1ST OPERAND IS ZERO 
UNPACK 1ST OPERAND 

TO *2 IF 2ND SFX IS GREATER 

TO IF 1ST SFX IS GREATER 

TO IF 1ST CF IS GREATER OR EQUAL 

INTERCHANGE OPERANDS 



TO *4 IF SIGNS ARE ALIKE 

ELSE COMPLEMENT CF OF SMALLER NUMBER 

TO *8 IF SFX DIFF AS BIG AS 11 



SET DECIMAL SHIFTER 

DEVELOP TWICE SUM IN MQ 
SAVE PIECES 



SET ZERO RESULT AND EXIT 



SCALE UP ONE DIGIT 



ADJUST SFX 



SCALE UP AND GO TO *12 



ROUND 

AND SET CF OF RESULT 
PACK UP RESULT 
EXIT 



=033E0O0+ 


= 


33 


010 


$ 











MULTIPLY 


=033E010 






024 


K 


2 


052 


* 


9 




j=033E020 






020 


$ 





010 


= 


11 




=033E030 






020 


$ 





010 


= 


13 




=033E040 






023 


P 


6 


001 


* 


1 




=033E050 






050 


Q 


3 


010 


# 


9 




=033E060 


* 


1 


023 


Q 


3 


002 


* 


9 




=033E070 






020 


$ 





010 


= 


11 




=033E080 






020 


N 


9 


070 




1 




=033E090 






004 


P 


9 


036 


P 


6 




=033E100 






050 


T 





025 


* 


90 




=033E110 






001 


* 


3 


025 


N 







=033E120 






002 


* 


2 


021 


* 


91 




=033E130 






064 


T 


1 


001 


* 


3 




=033E140 


* 


2 


020 


T 





044 


N 


9 




=033E150 






060 


P 


6 


020 


P 


4 




=033E160 






024 


P 


7 


024 


K 


14 




=033E170 






050 


P 


4 


010 


# 


6 




=033E180 


* 


3 


021 


* 


92 


064 


T 


1 




=033E190 






004 


T 


1 


001 


* 


4 




=033E200 






020 


T 





010 


# 


5 




=033E210 


* 


4 


020 


T 





025 


N 







=033E220 


* 


5 


044 


N 


8 


060 


P 


6 




=033E230 






020 


P 


4 


024 


P 


7 




=033E240 






050 


P 


4 


010 


$ 


1 




=033E250 


* 


6 


020 


P 


5 


024 


P 


8 




=033E260 






124 


K 


12 


050 


P 


5 




=033E270 






020 


$ 





010 


= 


30 




=033E280 


# 


9 


010 


— 













=033E290 


* 


90+ 




181898 




,39 




=033E300 


* 


91+517415400576 




39 




=033E310 


* 


92+ 450000000 




39 » 





034E000+ 


= 34 010 


$ 











DIVIDE 


034E010 


024 


K 


2 


052 


* 


9 




034E020 


023 


Q 


3 


002 


E 


3 




034E030 


020 


$ 





010 


= 


11 




034E040 


020 


$ 





010 


= 


13 




034E050 


023 


Q 


3 


002 


* 


9 




034E060 


020 


$ 





010 


= 


11 




034E070 


020 


N 


8 


050 


T 







034E080 


020 


P 


4 


025 


P 


7 




034E090 


050 


P 


4 


020 


P 


6 




034E100 


025 


P 


9 


002 


* 


1 




034E110 


020 


N 


9 


050 


T 







034E120 


020 


P 


4 


025 


K 


14 




034E130 


050 


P 


4 


010 


S 


1 




034E140 


* 1 020 


P 


9 


072 




1 




034E150 


004 


P 


6 


036 


T 







034E160 


044 


P 


9 


060 


P 


6 




034E170 


020 


P 


5 


024 


P 


8 




034E180 


124 


K 


12 


050 


P 


5 




034E190 


020 


$ 





010 


= 


30 




034E200 


* 9 010 


— 


— 






* 





=035E000+ 


. = 35 010 


$ 











=035E010 


024 


K 


2 


052 


* 


9 


=035E020 


120 






050 


* 


81 


=035E030 


050 


* 


82 


050 


* 


83 


=035E090 


020 


Q 


3 


050 


* 


85 


=035E100 


020 


$ 





010 


= 


11 


=035E110 


020 


P 


4 


050 


* 


86 


=035E120 


020 


P 


5 


050 


# 


87 


=035E130 


020 


P 


6 


050 


* 


88 


=035E140 


020 


$ 





010 


= 


13 


=035E141 


023 


# 


88 


001 


* 


1 


=035E142 


* 6 020 


N 


8 


024 


* 


81 


=035E143 


* 16 050 


Q 


3 


010 


* 


9 


=035E150 


* 1 023 


Q 


3 


001 


* 


2 


=035E160 


023 


* 


87 


002 


# 


9 


=035E172 


010 


E 


23 








=035E180 


* 2 020 


Q 


3 


050 


* 


84 


=035E190 


020 


$ 





010 


= 


11 


=035E200 


020 


P 


4 


50 


* 


89 


=035E210 


020 


P 


5 


050 


* 


90 


=035E220 


020 


P 


6 


050 


* 


91 


=035E230 


020 


* 


85 


050 


Q 


3 


=035E240 


020 


$ 





010 


F 


6 


=035E250 


023 


Q 


3 


006 


* 


3 


=035E260 


023 


* 


90 


001 


E 


21 


=035E270 


020 


K 


12 


050 


# 


82 


=035E280 


* 3 014 


# 


4 


020 


# 


86 


=035E290 


072 




31 


050 


T 





=035E300 


020 


I 


8 


025 


T 





=035E310 


005 


* 


4 


024 


J 


11 


=035E320 


056 


* 


5 


120 






=035E330 


* 5 004 


* 


88 


044 


-- 





=035E340 


060 


* 


80 


071 




39 


=035E350 


006 


* 


4 


020 


* 


90 


=035E360 


* 4 050 


* 


81 


020 


# 


84 


=035E370 


125 


K 


12 


050 


* 


84 


=035E380 


025 


N 


8 


050 


T 


1 


=035E390 


023 


T 


1 


002 


* 


6 


=035E400 


020 


# 


87 


050 


* 


83 


=035E410 


020 


•* 


85 


125 


K 


12 


=035E420 


050 


* 


85 


023 


* 


82 


=035E430 


002 


* 


7 


020 


* 


85 


=035E440 


025 


# 


93 


050 


T 





=035E450 


020 


# 


84 


050 


Q 


3 


=035E460 


023 


T 





001 


* 


8 


=035E470 


020 


$ 





010 


F 





=035E480 


023 


* 


83 


002 


# 


9 


=035E490 


020 


I 


1 


050 


* 


80 


=035E502 


050 


* 


87 


020 





3 


=035E504 


050 


* 


84 


010 


* 


29 


=035E530 


* 8 020 


S 





010 


F 


1 


=035E540 


020 


$ 





010 


= 


11 


=035E550 


020 


P 


5 


024 


* 


87 


1 =035E560 


124 


K 


12 


025 


I 


1 



Y = A*B 

SET FLAGS TO ZERO 

STORE B 

UNPACK B 

STORE PARTS IN *86»*87»*88 



POP B 

DOES B=0» 

IF YES, RESULT IS ONE PLUS SIGN 

IN FLAG 1 

IF A=0 AND B IS POSITIVE* RESULT IS 

ZERO, IF B IS NEGATIVE, ERROR. 

STORE A 

UNPACK A 

STORE PARTS IN *89»*90,*91 



FIND FP OF B 

TRANSFER IF B IS AN INTEGER 

ERROR IF A IS NEGATIVE 

FLAG 2 IS 2*(-9) FOR B FRACTIONAL 



IF SFB IS LESS THAN 
STORE TRUE VALUE OF 
IN *80 



9 COMPUTE AND 
INTEGRAL B 



TEST UNITS POSITION FOR B ODD OR 

EVEN. (SHIFT TO SIGN BIT) 

IF B IS ODD STORE SIGN OF A 

IN FLAG 1 

STORE ABSOLUTE VALUE OF A 

IF IT EQUALS ONE, THEN RESULT 

IS PLUS OR MINUS ONE 

FLAG 3 EQUALS SIGN OF B 

STORE ABSOLUTE VALUE OF B 

IF FLAG 2 IS ZERO, B IS AN INTEGER 

TRANSFER 

STORE A IN Q3» THEN TEST 

IF B EQUALS 1/2 

COMPUTE SQUARE ROOT OF A 

IF FLAG 3 IS ZERO, EXIT 

TRANSFER TO INTEGER ARITHMETIC TO 

COMPUTE RECIPROCAL OF SQUARE ROOT 

COMPUTE E*(B.LOG(A)> FOR B 
FRACTIONAL OR INTEGER GREATER THAN 9 

TEST SIGN FOR B.LOG(A), IF NEGATIVE 



=035E570 






001 


# 


26 


020 


P 


4 


TEST SF FOR RESULT 


=035E580 






024 


# 


86 


072 




31 


IF SF GREATER THAN 2* E* (-B.LOG( A ) ) =< 


=035E590 






025 


I 


3 


006 


* 


23 




=035E600 


# 


26 


020 


$ 





010 


= 


12 




=035E610 






020 


* 


85 


024 


* 


87 




=035E620 






050 


Q 


3 


010 


s 


1 




=035E630 






020 


$ 





010 


= 


33 


MULTIPLY B.LOG(A) 


=035E680 






020 


$ 





010 


F 


2 


COMPUTE E* <B(LOG(AM 


=035E690 


* 


20 


020 


Q 


3 


014 


*• 


6 


TRANSFER TO ADD FLAG 1 


=035E700 


* 


7 


020 


* 


91 


025 


N 


8 


B IS AN INTEGER* TEST A 


=035E710 






025 


I 


1 


002 


# 


14 


IF A IS NOT A POWER OF 10* TRANSFER 


=035E720 






022 


* 


86 


025 


K 


14 


IF ABSOLUTE VALUE OF SFB IS 


=035E730 






025 


K 


14 


005 


* 


15 


GREATER THAN ONE* TEST SIGN FOR 


=035E740 






020 


# 


87 


024 


I 


1 


SF FOR RESULT* + IS OVERFLOW* 


=035E745 






071 




49 


032 


* 


89 


- IS UNDERFLOW 


=035E750 


# 


23 


002 


E 


1 


120 








=035E755 


# 


15 


010 


■K- 


16 


004 


* 


80 




=035E760 






023 


* 


87 


002 


* 


18 


ATTACH SIGN TO B 


=035E765 






061 


# 


80 


004 


* 


80 


B. SFA 


=035E770 


* 


18 


032 


* 


89 


076 







SHIFT SIGN BIT 


=035E771 






001 


* 


25 


025 


I 


1 


TEST FOR NON-ZERO BIT IN ACCUMULATOR 


=035E772 






002 


E 


1 


010 


* 


24 


(IS SF MAGNITUDE GREATER THAN 511) 


=035E773 


* 


25 


024 


I 


1 


005 


# 


23 




=035E775 


* 


24 


060 


P 


4 


020 


# 


81 




=035E780 






050 


P 


5 


020 


* 


91 




=035E785 






050 


P 


6 


010 


* 


17 




=035E790 


# 


17 


020 


S 





010 


a 


30 


PACK 


=035E795 


# 


9 


010 


— 


— ,_ 








EXIT 


=035E800 


# 


14 


020 


* 


84 


050 


Q 


3 


SET Q3 EQUAL TO ABSOLUTE VALUE OF A 


=035E810 






020 


K 


14 


025 


* 


86 


IF B IS GREATER THAN 29. TRANSFER TO 


=035E812 






001 


# 


8 


020 


* 


80 


COMPUTE E*(B.LOG(A) ) 


=035E814 






025 


* 


94 


002 


# 


8 




=035E816 


* 


29 


004 


N 


8 


060 


# 


88 


INITIALIZE PRODUCT 


=035E817 






023 


* 


87 


002 


* 


27 




=035E818 






060 


Q 


3 


010 


$ 


1 


SET 03=1 FOR DIVISION 


=035E820 






020 


$ 





010 


s 


12 


PUSH 


=035E822 






020 


* 


84 


050 


Q 


3 


Q3 = A 


=035E826 






020 


$ 





010 


= 


34 


IF B NEGATIVE* COMPUTE 1/A 


=035E828 


* 


27 


020 


Q 


3 


050 


* 


91 


STORE MULTIPLIER 


=035E830 






020 


* 


80 


072 




1 


TEST SUCCESSIVE DIGITS OF B» IF ONE 


=035E832 






050 


* 


80 


061 


T 





MULTIPLY CURRENT PRODUCT BY CURRENT 


=035E834 






002 


* 


28 


010 


$ 


1 


POWER OF A*N OR (1/A)*N 


=035E836 






020 


$ 





010 


= 


12 


PUSH A*N 


=035E838 






020 


* 


88 


050 


Q 


3 




=035E840 






020 


$ 





010 


= 


33 


MULTIPLY 


=035E842 






020 


Q 


3 


050 


* 


88 




=035E844 


■M- 


28 


023 


# 


80 


002 


* 


20 


IF B=0, DONE* OTHERWISE 


=035E846 






020 


* 


91 


050 


Q 


3 


COMPUTE NEXT POWER 


=035E848 






020 


$ 





010 


= 


12 


PUSH A*N 


=035E850 






020 


$ 





010 


= 


33 


COMPUTE A*(2N) 


=035E852 






010 


# 


27 










=035E870 


•* 


80 














B IF IT IS AN INTEGER 


=035E875 


* 


81 














FLAG 1 


=035E880 


# 


82 














FLAG 2 


=035E885 


* 


83 














FLAG 3 



=035E890 


* 


84 


=035E895 


* 


85 


=035E900 


* 


86 


>=035E905 


* 


87 


=035E910 


* 


88 


=035E915 


* 


89 


=035E920 


* 


90 


=035E925 


* 


91 


=035E935 


* 


93 


=035E940 


* 


94 



A PACKED -- THEN ABSOLUTE A PACKED 
B PACKED — THEN ABSOLUTE B PACKED 
SFX B 
SIGN B 

COEF B, REPLACED BY 10*8 IN * 29 +2 
SFX A 
SIGN A 

COEF A» REPLACED BY A*N IN * 27 
077»6356»326»2400 1/2(10*8) 
30 » 



=036E000+ 


= 


36 


010 


$ 











=036E010 






024 


K 


2 


052 


* 


1 


>=036E020 






024 


K 


2 


052 


# 


9 


=036E030 


* 


1 


020 


— 





024 


# 


90 


=036E040 






052 


* 


10 


124 


K 


5 


=036E050 






025 


I 


1 


050 


T 





=036E060 






120 







050 


* 


3 


=036E070 


* 


10 


010 


— 











=036E080 


* 


11 


020 


* 


91 


014 


# 


2 


=036E090 


* 


12 


020 


* 


92 


014 


* 


2 


=036E100 


* 


13 


020 


* 


6 


014 


* 


2 


=036E110 


* 


14 


020 


* 


94 


050 


* 


3 


=036E120 


* 


2 


020 


* 


6 


050 


* 


5 


=036E130 


# 


3 














=036E140 






020 


T 





024 


J 


11 


=036E150 






056 


* 


4 


120 







=036E160 


* 


4 


004 


H 


20 


044 


— 





=036E170 






050 


H 


20 


063 


T 


1 


=036E180 






002 


* 


5 


020 


* 


6 


=036E190 






050 


* 


5 


010 


* 


20 


=036E200 


* 


5 














=036E210 


* 


6 


004 


A 


48 


010 


* 


20 


=036E220 


* 


7 


004 


A 


14 


010 


* 


20 


=036E230 


* 


20 


020 


P 


12 


024 


K 


3 


=036E240 






050 


P 


12 


056 


* 


21 


=036E250 


# 


21 


060 


P 


11 


050 


— 





=036E260 


* 


22 


020 


T 





025 


I 


1 


=036E270 






050 


T 





002 


* 


3 


=036E280 


* 


9 


010 


— 


■ «i« 








=036E290 


* 


90 




* 


10 








=036E300 


* 


91 


023 


T 





001 


# 


22 


=036E310 


* 


92 


023 


T 





001 


* 


7 


=036E320 


# 


94 


023 


H 


20 


002 


* 


9» 



CONVERT H20 INTEGER FOR OUTPUT FROM 5 
020 $ 010 = 36 
K N 

WHERE K=OPTION AND N=NBR OF DIGITS 
K=l SKIP LEADING ZEROS 
K=2 SPACE FOR LEADING ZEROS 
K=3 FORCE LEADING ZEROS 
K=4 FORCE LEADING* SKIP TRAILING ZE 



EXIT 



=037E000+ = 37 024 K 2 010 $ SIMPLE DIRECT TESTS 

'037E010 052 * 9 020 Q 9 

: 037E020 002 E 9 010 * 1 ERROR IF INDIRECT* JUMP INTO =38 



=038E000 = 38 024 K 2 010 $ SIMPLE INDIRECT TESTS 

=038E010 052 * 9 020 Q 9 

=038E020 001 E 10 010 * 1 ERROR IF DIRECT 

=038E030 * 1 020 $ 010 = 3 ELIMINATE SPACES 

=038E040 124 K 19 025 K 19 

=038E050 * 9 002 010 E 6. EXIT IF TERMINAL ELSE MALFORMED 



=039E000+ = 39 050 T 010 $ VERIFY SPACE AND ADVANCE TO NONSPACE 

=039E010 020 P 1 124 A 14 

=039E020 025 A 14 001 E 6 ERROR IF NOT SPACE 

=039E030 020 T 010 = 2* WADE INTO ADVANCE TO NONSPACE 



=040E000+ = 40 010 S POSITIVE INTEGER TEST ON (Q3) 

=040E0l0 024 K 2 052 * 9 

N =040E020 020 $ 010 = 11 

=040E030 021 P 6 001 * 1 

=040E040 * 2 020 K 4 010 * 9 

=040E050 * 1 021 P 5 001 * 9 

=040E060 020 P 4 001 * 9 

=040E070 025 J 18 002 * 2 (J18) = 9X2*(-8) 

=040E080 021 P 4 072 10 

=040E090 024 J 14 052 * 3 

=040E100 120 004 P 6 

=040E110 * 3 044 025 K 1 

=040E120 002 * 2 120 

=040E130 * 9 010 » EXIT + OR - A/C TEST 



=041E000+ 


= 


41 


010 


$ 











SUBSCRIPT 


=041E010 






024 


K 


2 


052 


* 


9 




=041E020 






023 


Q 


3 


002 


* 


9 




=041E030 






020 


$ 





010 


= 


11 




=041E040 






023 


P 


5 


001 


E 


4 




=041E050 






020 


P 


4 


001 


E 


4 




=041E060 






025 


K 


14 


002 


# 


1 




=041E070 






020 


N 


8 


014 


* 


2 




=041E080 


* 


1 


025 


K 


14 


002 


E 


4 




=041E090 


* 


2 


020 


N 


7 


050 


T 







=041E100 






120 







004 


P 


6 




=041E110 






044 


T 





025 


K 


1 




=041E120 






002 


E 


4 


060 


T 







=041E130 


* 


3 


071 




12 


050 


Q 


3 




=041E140 


* 


9 


010 


— 









» 





RANGE TEST AND REPL <Q3) 



=042E000+ 



42 130 » 42 134 = 42 



=043E000+ 



= 43 130 = 43 134 = 43 



=044E000+ = 44 010 $ PART NUMBER TEST ON ( Q3 ) 

=044E010 

=044E020 

=044E030 * 



010 


$ 




024 


K 2 052 


* 9 


020 


$ 010 


= 40 


002 


010 


E 18» 



=045E000+ = 45 010 $ STEP NUMBER TEST ON ( Q3 ) 

=045E0l0 024 K 2 052 * 9 

=045E020 023 3 002 E 13 

=045E030 020 Q 3 071 1 

=045E040 001 E 13 071 8 

=045E050 001 E 13 020 Q 3 

=045E060 025 J 18 002 E 13 

= 045E070 * 9 010 * 



=046E000+ 


= 46 010 


$ 







=046E010 


024 


K 


2 


052 * 9 


=046E020 


020 


$ 





010 = 40 


=046E030 


* 9 002 


— 


— 


010 E 12» 



FORM NUMBER TEST ON (Q3) 



=047E000+ 


= 


47 


010 


$ 











=047E010 






024 


K 


2 


052 


* 


6 


=047E020 






024 


K 


2 


052 


* 


9 


=047E030 






020 


H 


12 


024 


u 





=047E040 






052 


* 


1 


056 


# 


6 


=047E050 






020 


H 


12 


024 


u 


3 


=047E060 






052 


* 


4 


056 


•K- 


5 


=047E070 


* 


1 


020 


— 





056 


* 


2 


=047E080 


* 


2 


056 


# 


4 


020 


— 





=047E090 






050 


T 





025 


H 


12 


=047E100 






005 


# 


3 


025 


K 


1 


=047E110 


* 


3 


001 


* 


4 


020 


T 





=047E120 






024 


U 


3 


014 


* 


1 


=047E130 


* 


4 


020 


— 





050 


— 


•— — 


=047E140 


* 


5 


020 


K 


4 


050 


— 





=047E150 


* 


6 


020 


— 




050 


— 





=047E160 


* 


7 


052 


* 


8 


056 


* 


10 


=047E170 


# 


8 


020 


— 





001 


* 


10 


=047E180 






024 


U 


3 


010 


* 


7 


=047E190 


* 


10 


020 


H 


12 


050 


— 





=047E200 


* 


9 


010 


— 


■-- 









PUT STN AT END OF STATE IN SI. 



CLOSE GAP IN OLD STATE LIST 
SET NULL SUCCESSOR FOR STN 
SET NEW STATE FOR STN 



ADD STN TO END OF NEW STATE LIST 



=O48E00O+ = 48 010 $ «TO« ROUTINE 

=048E0l0 024 K 2 052 * 9 

»=048E030 020 H 9 124 K 17 

=048E040 142 K 35 050 H 12 ERASE SIGNAL 

=048E050 071 21 052 H 12 SET STN CONTEXT 

=048E060 020 S 010 = 58 RELEASE CURRENT BUFFER 

=048E070 001 * 1 020 H 12 

=048E080 024 K 24 142 K 24 TL NEXT BUFFER TO STN 

=048E090 * 1 020 H 12 024 U 

=048E100 052 * 2 0?0 K 5 

=048E110 * 2 124 025 * 90 

=048E120 001 * 8 025 I 1 

=048E130 001 * 3 025 I 7 TO *3 IF STATE=L6 

=048E140 001 * 8 025 I 1 

=048E150 001 * 5 010 * 8 

=048E160 * 3 020 H 13 024 U 5 STATE=L6 

=048E170 052 * 4 010 $ 1 

=048E180 * 4 020 002 * 8 

=048E190 020 $ 010 = 47 ON LAST BUFFER - SWITCH TO USER 

=048E200 L 10 L 10 

=048E210 020 H 12 024 K 36 

=048E220 142 K 36 010 * 8 CL+SU THEN EXIT 

=048E230 * 5 020 J 17 050 T STATE = L14 

=048E240 020 H 12 024 U 1 

=048E250 052 * 7 010 * 7 

=048E260 * 6 024 U 5 052 * 7 

=048E270 020 T 025 I 1 

=048E280 050 T 001 * 8 EXIT IF STILL CHOKING 

'=048E290 * 7 020 002 * 6 LOOP IF BUFFER TO COUNT 

=048E300 020 $ 010 = 47 ELSE UNCHOKE 

=048E310 L 11 L 11 

=048E315 * 8 020 L 13 050 H 12 RESET H12 TO STN IN L13 

= 048E320 * 9 010 EXIT 

=048E330 * 90 L 6» 



=049EOOO+ 


= 49 


024 K 2 010 


$ 





=049E010 




052 * 9 020 


H 


12 


=049E020 




024 U 4 052 


* 


1 


=049E030 




020 $ 010 


= 





=049E040 


* 1 


050 — — 010 


$ 


1 


=049E050 


* 9 


010 




» 



UPDATE ACTIVITY OF STN 



=050E000+ 


= 


50 


010 


$ 











=050E010 






024 


K 


2 


052 


* 


9 


'=050E020 






020 


J 


10 


050 


H 


22 


=050E030 






020 


Q 


10 


050 


H 


23 


=050E040 


* 


1 


020 


H 


22 


050 


H 


21 


=050E050 






020 


H 


23 


050 


H 


22 


=050E060 






056 


* 


2 


024 


K 


1 


=050E070 


* 


2 


056 


* 


3 


020 


— 





=050E080 






050 


H 


23 


001 


* 


9 


=050E090 


* 


3 


020 


P 


20 


025 


— 





=050E100 






001 


# 


1 


025 


K 


1 


=050E110 






002 


* 


1 


020 


H 


23 


=050E120 


* 


9 


010 


— 












FIND PART (P20) 



EXIT MINUS IF CAN'T FIND 



OUTPUT LOCATOR IN ACC 

H21» H22» H23 HOLD USEFUL POINTERS 



=051E000+ = 51 010 $ FIND STEP (P21) 

=051E010 024 K 2 052 * 9 

=051E020 020 P 21 070 31 

=051E030 124 K 5 050 H 21 

=051E040 020 J 14 025 H 21 

=051E050 056 * 4 010 $ 1 

=051E060 020 J 10 050 H 22 

=051E070 020 Q 10 050 H 23 

=051E080 * 1 020 H 22 050 H 21 

=051E090 020 H 23 050 H 22 

=051E100 056 * 2 024 K 1 

=051E110 * 2 056 * 3 020 

=051E120 * 8 050 H 23 001 * 9 EXIT MINUS IF CAN'T FIND 

=051E130 * 3 020 P 21 025 

=051E140 * 4 001 * 8 025 EXIT MINUS IF CAN'T FIND AND LEAVE H2 

=051E150 002 * 1 020 H 22 

=051E160 071 21 124 K 6 

=051E170 050 H 25 020 H 23 

=051E180 050 H 26 010 $ 1 

=051E190 * 5 020 H 25 050 H 24 

=051E200 020 H 26 050 H 25 

=051E210 052 * 6 024 K 2 

=051E220 052 * 7 010 $ 1 

=051E230 * 6 020 050 H 26 

=051E240 001 * 9 020 P 21 EXIT MINUS IF CAN'T FIND 

=051E250 * 7 025 001 * 9 EXIT MINUS IF CAN'T FIND 

=051E260 025 K 1 002 * 5 

=051E270 020 H 26 010 $ 1 OUTPUT LOCATOR IN ACC 

=051E280 * 9 010 * H21-H26 HOLD USEFUL INFO ON EXIT 



=052E000+ = 52 010 $ FIND FORM (P22) 

=052E010 024 K 2 052 * 9 

=052E020 020 J 10 050 H 25 

=052E030 020 11 050 H 26 

=052E040 * 1 020 H 25 050 H 24 

=052E050 020 H 26 050 H 25 

=052E060 052 * 2 024 K 2 

=052E070 052 * 3 010 $ 1 

=052E080 * 2 020 050 H 26 

=052E090 001 * 9 020 P 22 EXIT MINUS IF CAN'T FIND 

=052E100 * 3 025 001 * 9 

=052E110 025 K 1 002 * 1 

=052E120 020 H 26 010 $ 1 OUTPUT LOCATOR IN ACC AND H26 

=052E130 * 9 010 » H24 LOCATES PREDECESSOR ON EXIT 



=053E00O+ = 53 010 $ KICK OUT CURRENT PROGRAM (IF ANY) 

=053E010 024 K 2 052 * 9 

=053E020 020 H 7 001 * 9 

=053E030 024 U 2 052 * 1 

=053E032 020 $ 010 = ACCUMULATE TIME WORKED 

=053E034 025 H 8 024 J 23 

=053E036 050 J 23 010 $ 1 

=053E040 * 1 020 055 * 90 

=053E050 004 * 90 111»6000 (FOR 1024 WORD USER BLOCK) 

=053E060 020 K 4 050 H 7 

=053E070 * 9 010 

=053E080 * 90 000 .0000 »000 ♦ 1777 ♦ CONSTRUCTED DRUM CONTROL WORD 



=054E000+ = 54 010 $ BRING IN PROGRAM (IF ANY) A/C STN 

=054E010 

=054E020 020 $ 010 = 53 KICK OUT CURRENT PROGRAM IF ANY 

=054E030 

=054E040 

=054E050 * 

=054E060 

=054E070 004 * 90 110*6000 (FOR 1024 WORD USER BLOCK) 

=054E080 

=054E090 020 $ 010 = 49 UPDATE STATION ACTIVITY 

=054E100 050 H 8 010 $ 1 SET START TIME OF CURRENT SHOT 

=054E110 * 

=054E120 * 90 000»0000»000*1777» CONSTRUCTED DRUM CONTROL WORD 





024 


K 


2 


052 


* 9 




020 


$ 





010 


= 53 




020 


H 


12 


024 


U 2 




052 


# 


1 


010 


$ 1 


1 


020 


— 





001 


* 9 




055 


# 


90 


010 


$ 1 




004 


# 


90 


110i 


»6000 




020 


H 


12 


050 


H 7 




020 


$ 





010 


= 49 




050 


H 


8 


010 


$ 1 


9 


010 


— 










=055E000+ = 55 010 $ SWITCH TO USER (CL+SU) 

=055E010 024 K 2 052 * 9 (ASSUMES SUBSTATE OF L10 ALREADY IN F 

)=055E015 020 K 4 050 P 16 CLEAR P16 BEFORE SWITCHING 

=055E020 050 P 15 020 H 12 ALSO CLEAR P15 

=055E030 024 U 1 052 * 1 

=055E032 020 8 001 * 1 JUMP IF Q8 MINUS 

=055E034 050 12 020 Q 9 HIDE 08-09 

=055E036 050 13 020 K 4 

=055E038 050 Q 8 050 Q 9 

=055E040 * 1 020 001 * 3 

=055E050 024 U 5 052 * 2 

=055E060 * 2 020 001 * 4 

=055E070 020 $ 010 = 47 CHANGE STATE TO L6 WHILE DRAINING 

=055E080 L 6 L 6 

=055E090 010 * 9 

=055E100 * 3 020 S 010 = 8 ASSIGN INPUT BUFFER 

=055E110 002 * 4 010 SI TO *4 IF ASSIGNED 

=055E120 020 $ 010 = 47 CHANGE STATE TO L7 IF NO BUFFER AVAIL 

=055E130 L 7 L 7 

=055E140 010 * 9 

=055E150 * 4 020 H 12 024 K 36 OK TO SWITCH 

=055E160 142 K 36 010 $ 1 CL+SU 

=055E170 020 $ 010 = 47 CHANGE STATE TO L10 GREEN 

=055E180 L 10 L 10 

= 055E190 * 9 010 » 



056EO00+ 


= 


56 


010 


$ 











ERASE STEP 


056E010 






024 


K 


2 


052 


# 


9 




056E020 






020 


$ 





010 


= 


57 


STEP LOOKS 


056E030 






020 


H 


22 


056 


* 


1 




056E040 


* 


1 


020 


K 


6 


124 


— 







056E050 






025 


K 


1 


002 


# 


9 


EXIT UNLESS 


056E060 






020 


H 


21 


056 


•«■ 


2 




056E070 


* 


2 


020 


H 


23 


056 


— 







056E080 






020 


H 


22 


071 




61 




056E090 






020 


$ 





010 


= 


28 


ERASE LEFT 


056E100 


* 


9 


010 


— 









» 





JUST LIKE FORM HERE 



PART NOW EMPTY 



LINKED LIST (ONE ITEM HERE 






=057E000+ = 57 010 $ ERASE FORM A/C H24-H26 

=057E010 024 K 2 052 * 9 

057E020 020 H 24 052 * 1 

=057E030 020 H 26 010 $ 1 

=057E040 * 1 052 010 $ 1 

=057E050 020 H 25 071 19 

=057E060 020 $ 010 = 29 ERASE RIGHT LINKED LIST A/C MQ 

= 057E070 * 9 010 » 



058E000+ 


= 


58 


010 


$ 











058E010 






024 


K 


2 


052 


* 


9 


058E020 






020 


H 


12 


50 


* 


92 


058E030 






024 


U 


1 


052 


* 


1 


058E040 






056 


* 


8 


010 


$ 


1 


058E050 


* 


1 


020 


— 


»•■» — 


050 


H 


13 


058E055 






002 


$ 


1 


010 


* 


9 


058E060 






024 


U 


5 


056 


* 


2 


058E070 


# 


2 


056 


* 


3 


004 


— 





058E080 


* 


3 


020 


K 


4 


050 


— 





058E090 






060 


# 


93 


050 


T 





058E100 






020 


H 


12 


056 


T 





058E110 






020 


T 





142 


K 


16 


058E120 






020 


* 


91 


010 


$ 


1 


058E130 


* 


4 


052 


* 


5 


056 


* 


6 


058E140 


* 


5 


020 


— 





001 


* 


6 


058E150 






024 


U 


5 


010 


*- 


4 


058E160 


* 


6 


020 


H 


13 


050 


— 





058E170 






020 


L 


7 


005 


# 


7 


058E180 






050 


H 


12 


010 


$ 


1 


058E190 






020 


$ 





010 


= 


8 


058E200 






020 


$ 





010 


= 


47 


058E210 








L 


10 




L 


10 


058E220 






020 


H 


12 


024 


K 


36 


058E230 






142 


K 


36 


020 


* 


92 


058E240 


* 


7 


050 


H 


12 


020 


# 


93 


058E250 


* 


8 


050 


H 


13 


050 


— 





058E260 


# 


9 


010 


— 











058E270 


# 


91 




H 


10 




H 


10 


058E280 


* 


92 














058E290 


* 


93 















RELEASE CURRENT BUFFER FOR STN 

SERVICES L7 WITH FREE BUFFER AND 
LEAVES NEXT BUFFER OR -1 IN ACC ANC 



PICK UP NEXT BUFFER (IF ANY) 

SET SUCCESSOR OF OLD BUFFER TO -1 



SET BUFFER BITS IN SCR FOR NEW BUFFER 
FIND TAIL OF H10 LIST 



PUT OLD BUFFER ON END OF H10 LIST 
SERVICE L7 

ASSIGN BUFFER 
CHANGE STATE TO L10 

CL+SU 



RESTORE STN CONTEXT 
LEAVE NEXT BUFFER OR -1 
EXIT 



IN ACC AND HI 



PRIVATE STORAGE FOR STN 
PRIVATE STORAGE FOR BUFFER 



=059E000+ 



= 59 130 = 59 134 = 59 



=060E000+ = 60 130 = 60 134 = 60 



=061E000+ 


= 61 


010 $ 











CONVERT TIME FOR OUTPUT 


=061E010 




024 K 


2 


052 


* 


9 




=061E020 




020 $ 





010 


= 





READ THE CLOCK 


=061E030 




120 





004 


H 


1 




=061E040 




044 J 


1 


120 









=061E050 




044 J 





036 


N 


2 




=061E060 




060 H 


20 


010 


$ 


1 




=061E070 




020 $ 





010 


= 


36 




=061E080 






3 






4 




=061E090 


* 9 


010 — 









• 





=062E000+ 


= 62 050 T 010 $ 


=062E010 


020 A 14 050 P 11 


=062E020 


020 T 010 = 66» 



INSERT SPACE IN OUTPUT REGION S 



=063E000+ 



= 63 130 = 63 134 = 63 



064E000+ 


= 


64 


010 


$ 








UNPACK MSG TO S FOR 


064E010 






024 


K 2 


052 


* 


1 


020 $ 010 = 64 


064E020 






024 


K 2 


052 


# 


9 


M M 


064E030 


* 


1 


020 





052 


* 


2 


WHERE «M» IS LOCN 


064E040 


# 


2 


020 





050 


T 







064E050 


# 


3 


020 


T 


001 


* 


9 




064E060 






071 


8 


050 


T 







064E070 






020 


P 12 


024 


K 


3 




064E080 






050 


P 12 


052 


•*- 


4 




064E090 


# 


4 


060 





023 


T 







064E100 






001 


* 3 


020 


* 


2 




064E110 






024 


K 2 


014 


* 


1 




064E120 


* 


9 


010 









» 





OUTPUT COMPOSITIC 



OF MSG 



=065E000+ 



= 65 130 = 65 134 = 65 



=066E000+ 


= 66 


010 $ o 






=066E010 




024 K 2 


052 * 


9 


=066E020 




020 P 12 


024 K 


3 


=066E030 




050 P 12 


056 * 


1 


=066E040 


* 1 


020 P 11 


050 — 


— 


=066E050 


* 9 


010 







PUT (Pll) IN NEXT S CELL (P12)+l 



=067EOOO+ 



= 67 130 = 67 134 = 67 



=068E000+ 


= 


68 


010 


$ 








COMPUTE 


=068E010 






024 


K 2 


052 


* 


9 




1=068E020 






020 


P 21 


124 


K 


11 




=068E030 






050 


T 


070 




10 




=068E040 






050 


T 1 


020 


J 


14 




=068E045 






025 


T 1 


052 


* 


1 


ASSUMES 


=068E050 






052 


* 2 


020 


P 


21 




=068E060 






124 


K 13 


072 




39 




=068E070 


* 


1 


044 





020 


T 







=068E080 


* 


2 


036 





060 


P 


20 




=068E090 


* 


9 


010 









» 





(P20) FOR STEP (P21) 



(P21) IS LEGITIMATE 



=069E000+ 



= 69 130 = 69 134 



69 



=070E000+ 

=070E010 

=070E020 

=070E030 

=070E040 

=070E050 

=070E060 

=070E070 

=070E080 

=070E090 

=070E100 

=070E110 

=070E120 

=070E130 

=070E140 

=070E150 

=070E160 

=070E170 

=070E180 

=070E190 

=070E200 

=070E210 

=070E220 

=070E230 

=070E240 

=070E250 

=070E260 

=070E270 



70 

1 



* 

* 
* 
* 



11 

12 

13 

9 



010 
024 
020 
005 
001 

005 
071 
010 
005 
071 
010 
124 
124 
005 
071 
010 
071 
050 
071 
025 
020 
002 
020 
002 
020 
020 
020 
010 





2 

21 

2 

12 

3 

9 

13 

4 

9 

11 

12 

12 

5 

9 

13 

1 



1 



21 

13 

21 

11 

26 

25 

24 



COMPARE (H21) W (H22) 



052 
025 
025 
023 
020 
001 
023 
020 
001 
020 
024 
025 
020 
001 
020 
072 
020 
072 
001 
071 
010 
071 
010 
010 
010 
010 



9 

22 

1 

22 

21 

11 

21 

22 

13 

21 

22 

12 

21 

11 

22 

1 

21 

1 

6 

9 

11 

9 

13 

9 

9 

9 



LESS 
EQUAL 
GREATER 
EXIT WITH 



RELATION IN ACC 



071E000+ 


= 


71 


010 


$ 











071E010 






024 
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2 


052 


* 


9 


071E020 






020 


H 


27 


052 


* 


1 


071E030 






070 




21 


050 


H 


22 


071E040 


* 


1 


020 


— 





050 


H 


23 


071E050 


* 


2 


020 


H 


22 


050 


H 


21 


071E060 






020 


H 


23 


056 


* 


3 


071E070 


* 


3 


050 


H 


22 


020 


— 





071E080 






050 


H 


23 


001 


# 


9 


071E090 






124 


K 


42 


025 


H 


28 


071E100 






001 


* 


2 


025 


K 


1 


071E110 






006 


* 


9 


020 


H 


22 


071E120 






024 


K 


1 


124 


K 


5 


071E130 


# 


9 


010 


— 





020 


K 


4 


071E014 






050 


H 


23 


010 


* 


9. 



FIND SINGLE INDEXED VALUE 
H27 HOLDS LETTER 
H28 HOLDS INDEX 
ASSUME LETTER IS SINGLY INDEXED 



JUMP IF CAN'T FIND AND EXIT MINUS 

JUMP IF NO MATCH AND TRY NEXT 
JUMP IF NO MATCH POSSIBLE 

LEAVE + POINTER IN ACC IF FOUND 
EXIT - WITH H23 MINUS. 



=072E000+ 


= 


72 


010 


$ 











=072E010 






024 


K 


2 


052 


* 


9 


) = 072E020 






020 


$ 





010 
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71 


=072E030 






001 


* 


9 


020 


H 


22 


=072E040 






071 




21 


050 


H 


25 


=072E050 






020 


H 


23 


050 


H 


26 


=072E060 


* 


1 


020 


H 


25 


050 


H 


24 


=072E070 






020 


H 


26 


050 


H 


25 


=072E080 
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* 
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010 
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1 


=072E090 


# 
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— 





050 


H 


26 


=072E100 






001 


# 


9 


124 


K 


42 


=072E110 






025 


H 


29 


001 
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1 


=072E120 






025 


K 


1 


001 
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3 


=072E130 






020 


K 


4 


010 


* 


9 


= 072"E140 


* 


3 


020 


H 


25 


024 


K 


2 


= 072E1.50 


* 


9 


010 


— 












FIND DOUBLY INDEXED VALUE 
H27 HOLDS LETTER 
H28 HOLDS FIRST INDEX 
H29 HOLDS SECOND INDEX 

ASSUME LETTER IS DOUBLY INDEXED 



EXIT 



=073E000+ 


= 


73 


010 


$ 











=073E010 






024 


K 


2 


052 


* 


9 


=073E020 






020 


H 


29 


002 


# 


20 


=073E030 






020 


H 


28 


002 


* 


10 


=073E040 






020 


H 


27 


052 


* 


1 


=073E050 






052 


* 


3 


010 


$ 


1 


=073E060 


* 


1 


020 


— 





002 


* 


2 


=073E070 






025 


K 


1 


002 


* 


2 


=073E080 






020 


$ 





010 


= 


75 


=073E090 


* 


2 


020 


H 


30 


010 


$ 


1 


=073E100 


* 


3 


050 


— 





010 


$ 


1 


=073E110 


# 


9 


010 


— 











=073E120 


* 


10 


020 


Q 





001 


E 





=073E130 






020 


H 


27 


052 


* 


11 


=073E140 


* 


11 


020 


— 





002 


* 


12 


=073E150 






071 




6 


001 


* 


14 


=073E160 


* 


12 


020 


$ 





010 


= 


75 


=073E170 






020 


H 


27 


052 


* 


13 


=073E180 






020 


K 


39 


010 


$ 


1 


=073E190 


* 


13 


050 


— 





010 


S 


1 


=073E200 


* 


14 


020 


$ 





010 


= 


71 


=073E210 






056 


* 


17 


002 


* 


17 


=073E220 






020 


H 


21 


056 


* 


15 


=073E230 






020 


$ 





010 


= 


10 


=073E240 


* 


15 


056 


* 


16 


056 


— 





=073E250 






024 


K 


1 


056 


# 


17 


=073E260 






020 


H 


22 


124 


K 


5 


=073E270 


* 


16 


024 


H 


28 


050 


— 





=073E280 


# 


17 


020 


H 


30 


050 


— 





=073E290 






010 


# 


9 








=073E300 


* 


20 


020 


Q 





056 


* 


21 


=073E310 


* 


21 


001 


E 





020 


— 





=073E320 






002 


$ 


1 


010 


E 





=073E330 






020 


H 


27 


052 


* 


22 


=073E340 


* 


22 


020 


— 




002 


* 


23 


=073E350 






071 




5 


001 


* 


25 


=073E360 


* 


23 


020 


$ 





010 


= 


75 


=073E370 






020 


H 


27 


052 


* 


24 


=073E380 






020 


K 


38 


010 


$ 


1 


=073E390 


* 


24 


050 


■ — 





010 


$ 


1 


=073E400 


* 


25 


020 


S 





010 


= 


72 


=073E410 






052 


* 


31 


006 


* 


30 


=073E420 






020 


H 


23 


002 


* 


28 


=073E430 






020 


H 


21 


056 


* 


26 


=073E440 






020 


$ 





010 


= 


10 


=073E450 


* 


26 


056 


* 


27 


056 


— 





=073E460 






071 




21 


050 


H 


24 


=073E470 






020 


H 


22 


124 


K 


5 


=073E480 


* 


27 


024 


H 


28 


050 


— 





=073E490 






050 


H 


25 


010 


$ 


1 


=073E500 


* 


28 


020 


H 


24 


052 


* 


29 


=073E510 






020 


$ 





010 


= 


10 


=073E520 






071 




21 


052 


* 


30 


>=073E530 


# 


29 


052 


— 


— 


024 


K 


2 



ASSIGN VALUE A/C H27-H30 

JUMP FOR MATRIX ELEMENT 
JUMP FOR VECTOR ELEMENT 
SIMPLE VALUE TO ASSIGN 

JUMP IF ALREADY SIMPLE 

JUMP IF UNDEFINED 

ERASE VALUES FOR LETTER H27 

ASSIGN SIMPLE VALUE 

EXIT 

VECTOR ELEMENT TO ASSIGN 



JUMP IF LETTER NOW A VECTOR 
ERASE VALUE(S) FOR LETTER H27 



FIND SINGLE INDEXED VALUE 
JUMP IF FOUND 

GET A SPACE 



MATRIX ELEMENT TO ASSIGN 
CHECK SPACE 



JUMP IF LETTER NOW A MATRIX 
ERASE VALUE(S) FOR LETTER H27 



FIND DOUBLE INDEXED VALUE 
JUMP IF FOUND 
JUMP IF ROW EXISTS 

GET A SPACE 



GET A SPACE 



=073E540 
=073E550 
=073E560 
1= 073 E 570 



052 * 31 020 H 25 
124 K 6 024 H 29 

* 30 050 020 H 30 

* 31 050 010 * 9» 



=074E000+ 

: 074E010 

=074E020 

=074E030 

=074E040 

'074E050 

=074E060 

=074E070 

=074E080 

=074E090 

=074E100 

=074E110 

=074E120 

=074E130 

=074E140 

'074E150 

=074E160 

=074E170 

=074E180 

=074E190 

=074E200 

=074E210 

;074E220 

•074E230 

= 074E240 

=074E250 

=074E260 

: 074E270 



74 010 $ 
024 K 
020 Q 
020 Q 
020 $ 
020 Q 

1 020 $ 
020 Q 
020 Q 
071 

2 020 — 
052 * 





2 052 * 9 

7 050 H 29 



6 001 
010 
6 002 
010 
3 
5 
21 052 






020 - 
071 
020 I 
001 E 
070 
050 Q 
050 Q 
020 $ 
020 Q 
020 - 
071 
020 $ 
001 E 
020 
010 



3 

3 



1 

17 

6 

41 

050 H 28 

024 J 13 



050 H 27 
052 * 6 



020 H 29 002 



002 

6 002 
010 

2 056 
020 

3 010 



— 002 
5 002 
010 
2 052 



* 
E 

E 



* 
010 $ 
010 = 
050 H 29 



5 
2 
2 

71 
4 

9 

1 

41 



050 Q 



2 

2 

72 

7 
3 



EVALUATE INDEXED LETTER 



JUMP IF Q7 EMPTY 

POP 07 

MALFORMED IF EXTRA INDICES 

CHECK AND CONVERT FIRST INDEX 



SET LETTER 

JUMP IF DOUBLE INDEX 
UNDEFINED IF SCALAR 
UNDEFINED IF NOT VECTOR 

UNDEFINED IF CAN'T FIND 

SET RESULT AND EXIT 

CHECK AND CONVERT SECOND INDEX 

UNDEFINED IF SCALAR 
UNDEFINED IF NOT MATRIX 

UNDEFINED IF CAN'T FIND 

SET RESULT 

EXIT 



=075E000+ 

=075E010 

=075E020 

=075E030 

=075E040 

=075E050 

=075E060 

=075E070 

=075E080 

=075E090 

=075E100 

;075E110 

=075E120 

=075E130 

=075E140 

=075E150 

: 075E160 

=075E170 

=075E180 

'075E190 

>075E200 

=075E210 



75 010 $ 
024 K 
020 H 
052 * 
1 020 - 
050 
001 
001 

10 04 
020 $ 

11 020 K 

12 050 - 
9 010 - 

20 020 * 

21 020 * 
124 K 

22 001 * 
060 * 
020 $ 
010 * 

90 
91 





2 052 * 

27 052 * 

12 010 S 

- — 002 * 1 
90 071 
20 071 

10 010 * 

90 010 $ 

010 = 2 

4 010 S 

• — 010 $ 



90 

91 
5 

10 

91 


21 



014 
056 
025 
004 
010 
010 



* 2 

* 2 
K 

$ 

= 28 



ERASE VALUE(S) FOR LETTER H27 



JUMP IF LETTER HAS SIMPLE VALUE 

JUMP IF MATRIX 

JUMP IF VECTOR ELSE UNDEFINED 

VECTOR 

ERASE RIGHT LINKED LIST 

UNDEFINE THE LETTER 

EXIT 

MATRIX 



ERASE LEFT LINKED LIST 

LOCAL STORAGE 
LOCAL STORAGE 



=076E000+ 


= 


76 


010 $ 











=076E010 






024 K 


2 


052 


# 


9 


=076E020 






020 


8 


052 


* 


1 


=076E030 


* 


1 


020 — 





005 


* 


2 


=076E040 






052 * 


1 


075 




40 


=076E050 






020 $ 





010 


= 


29 


=076E060 


# 


2 


010 * 


1 


004 


Q 


8 


=076E070 






020 $ 





010 


= 


28 


=076E080 






020 S 





010 


= 


19 


=076E090 


* 


9 


010 — 


— 









ERASE ONE LEVEL OF CONTROL STRUCTURE 
ASSUME STRUCTURE EXISTS OFF Q8L 



077E000+ 


= 


77 


010 


$ 








077E010 






024 


K 2 


052 


* 


9 


077E020 






020 


P 1 


052 


# 


1 


077E030 






050 


J 20 


124 


K 


32 


077E040 






025 


K 32 


001 


E 


6 


077E050 


* 


1 


020 


— -._ 


124 


Q 


5 


077E060 






025 


Q 5 


001 


E 


6 


077E070 






020 


$ 


010 


= 


15 


077E080 


# 


9 


010 












MATCH GROUPERS 



LEAVE RIGHT GROUPER FOR DO AND G14 
ERROR IF NOT RIGHT GROUPER 

ERROR IF NO MATCH WITH PREV OPERATOR 

POP OPERATOR 

EXIT 



078E000+ 


= 78 010 $ 









TRANSMIT LINE AND RESTORE 


078E010 


024 K 


2 052 


P 


25 


DRUM ROUTINE IF NECESSARY 


078E020 


020 H 


17 050 


P 


24 


SAVE DRUM CW 


078E030 


020 $ 


010 


= 


25 


TRANSMIT 


078E040 


020 H 


17 025 


P 


24 




078E050 


050 T 


023 


T 







078E060 


002 P 


25 004 


P 


24 


EXIT VIA P25 IF STILL INTACT 


078E070 


060 H 


17 110 


M 





ELSE READ FROM DRUM 


078E080 


010 P 


25 




♦ 


THEN EXIT 



=079E000+ 


= 


79 024 K 2 010 $ 





VERIFY PRECEDING 


=079E010 




052 * 9 020 P 


2 




-079E020 




025 K 3 052 * 


1 




=079E030 


# 


1 020 124 A 


14 




=079E040 




025 A 14 001 E 


6 




=079E050 


* 


9 010 — — 


» 





SPACE 



w 

L 

U 
J 
I 
H 
E 
K 
N 
A 
M 
D 
B 

F 
G 
X 
P 
Q 
Z 
T 
S 
V 
R 



♦ 4340 

♦ 4360 
,4400 

♦ 4530 

♦ 4560 

♦ 4600 

♦ 4640 

♦ 4700 

♦ 4760 

♦ 5000 

♦ 5220 

♦ 5540 
,5554 

♦ 5600 

♦ 5720 

♦ 5740 

♦ 5760 
,6000 

♦ 6040 

♦ 6060 

♦ 6070 

♦ 6100 

♦ 6213 

♦ 6300 



ERR— LDR 


$ 


,4000 


ERR— LDR 


( 


( 


ERR — LDR 


* 


004 * 50 111,1000 


ERR — LDR 




010,0001 


ERR— LDR 


* 50 


000,1000,012,1777, 


ERR— LDR 


) 


) 


ERR— LDR 


( 


010,4000) 


ERR— LDR 


$ 


,1000 



INITIATE 
INITIATE 
INITIATE 
INITIATE 
INITIATE 
INITIATE 
INITIATE 
INITIATE 
INITIATE 
INITIATE 
INITIATE 
INITIATE 
INITIATE 
INITIATE 
INITIATE 
INITIATE 
INITIATE 
INITIATE 
INITIATE 
INITIATE 
INITIATE 
INITIATE 
INITIATE 
INITIATE 
INITIATE 
INITIATE 
INITIATE 
INITIATE 
INITIATE 
INITIATE 
INITIATE 
INITIATE 



* 
* 
* 
* 
* 



S 
( 




90 
91 
92 
93 
94 
95 
96 
) 
{ 



020 
134 
032 
107 
020 
020 
020 



90 

1 

91 
92 
4 



070 
071 
060 
050 
050 



M 



INITIALIZER (AT REGION M) 



( 




40 
1 

1 



050*6456 
020 * 93 



050*6454 
050*6455 
050*6457 
050 Q 



050 
020 
024 
024 
050 
020 
020 
001 
050 



94 

94 
1 
1 

94 
4 

94 
2 




010 
056 
056 
050 
010 
050 
025 
020 



$ 1 

* 3 

* 4 



95 
4 



050*7777 
004 * 96 
010 X 1 



050*7776 
106 
111,6000 

,1234 
,6454 
♦ 6456 
,6460 



,7776 
000,0000,013*1777* 

) 
010 M 0) 



SET ACC=»1234 AND MQ=0 
HALT FOR TIME OF DAY IN 
CONVERT TO CLOCK COUNTS 
SYNCHRONIZE WITH 16-BIT 
SET UP SPARE TANK 



SET UP AVAILABLE SPACE 



MINUTES 
AND STORE 
CLOCK 



RESTORE PRINTER 

SETUP PRIMER COPY OF USER BLOCK 

KICKOFF 

IDENTIFIER FOR TIME ENTRY 



WORKING STORE 



D-LDROOO+ $ 
D-LDR005 ( 
fr-LDROlO * 1 050. 
D-LDR020 071 

D-LDR030 020 

D-LDR040 024 

D-LDR050 025 

D-LDR060 120 

D-LDR070 020 

D-LDR080 050 

D-LDR090 * 2 020 
0-LOR100 056 

D-LDR110 052 

D-LDR120 * 3 050 
D-LDR130 024 

D-LDR140 004 

D-LDR150 * 4 060 
D-LDR160 * 80 
D-LDR170 * 81 
D-LDR180 * 82 
D-LDR190 * 83 
D-LDR200 * 84 
D-LDR210 * 85 
D-LDR220 * 86 
D-LDR230 * 87 
D-LDR240 * 88 
D-LDR250 . ) 



7000 



LOAD ROUTINES STYLE F TO DRUM 



« 



86 
21 
86 
80 
83 


88 
88 
80 
88 

3 



* 85 

* 88 



020 
052 
124 
050 
001 
050 
024 
014 
025 
020 
020 
052 
050 
111 
010 



000 
000 
004 



♦ 0000 

♦ 0000 
B 

1 



,001 

♦ 000 

010 



80 

88 

87 

80 

2 

80 

82 

1 

81 

86 

84 

4 

84 



1 



1 

,0000 

♦ 2000 

X 15 



* 

* 
* 
* 
* 
* 
* 
* 

M 



♦ 7777 

000 010 ♦ 

) 



STORE HEADER WORD FOR DRUM ROUTINE 



STORE DRUM CONTROL WORD, EXIT TO F-LD 
INITIAL NEXT AVAILABLE DRUM ADDRESS 

BAND COUNTER 

1024 

INITIAL HEADER WORD 

PARAMETER WORD { NAME ^LENGTH > 

MASK 

INITIAL DRUM CONTROL WORD 



DRUM- 


-CLR 




$ 








,4000 


DRUM- 


-CLR 




( 








( 


DRUM- 


-CLR 


# 





004 


* 50 


111 


,6000 


DRUM- 


-CLR 






020 


* 51 


064 


* 50 


DRUM- 


-CLR 






025 


* 52 


001 


* 


DRUM- 


-CLR 






010: 


,0001 






DRUM- 


-CLR 


# 


50 


ooo< 


,0000. 


,000' 


,1777 


DRUM- 


-CLR 


* 


51 


ooo f 


,0000: 


,001' 


,0000 


DRUM- 


-CLR 


* 


52 


000: 


,0000; 


,024: 


,1777* 


DRUM- 


-CLR 




) 








) 


DRUM- 


-CLR 




( 






010: 


,4000) 



D-CON000+ 




$ 








,7000 


D-CON005 






020 


# 


82 


056 * 84 


D-CON010 






020 




$ 


056 * 85 


D-CON020 


# 


1 


100 




2 


004 * 86 


D-CON030 


* 


2 


020 


* 


84 


056 * 3 


D-CON040 


# 


3 








020 


D-CON050 






101 


* 


84 


020 * 84 


D-CON060 






024 


* 


81 


056 * 84 


D-CON070 






025 


* 


85 


002 * 10 


D-CON080 






075 




79 


002 * 2 


D-CON090 






010 


* 


1 




D-CONIOO 


* 


10 


020 




/ 


124 * 83 


D-CON110 






024 




$ 


025 * 82 


D-CON120 






100 




2 


101 * 87 


D-CON125 






010 









D-CON130 


* 


81 








1 


D-CON140 


* 


82 








M 


D-CON150 


# 


83 


000s 


-7777s 


»000»0000 


D-CON160 


# 


84 








050 


D-CON170 


* 


85 








050 


D-CON180 


•* 


86 


OOOi 


,0000, 


»000,4000 


D-CON190 


* 


87 








010*7000 



CONVERT DRUM ROUTINES FROM E TO F 
PUNCH FROM MO TO $-1. 



PUNCH CONTROL CARD 

GO BACK TO STYLE E LOADER 



